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EDITORIAL 


THE FIRST YEAR OF ELBUG 

With this issue of ELBUG we complete the first volume of 18 issues of our 
magazine for Electron users. Each month we have striven to provide a variety of 
material to entertain you and to assist you in making the most of your Electron. The 
Electron is now in good supply in the shops, and there are a growing number of 
different add-on units and a wide range of games and other software now available. 
We believe that Acorn will soon announce details of their Plus-3 module to 
complement the Plus-1 released earlier this year. This will allow disc units to be 
used with the Electron, giving much improved saving and loading of files compared 
with cassette. 


We are preparing a useful index to all the issues of volume 1 and this will be 
included free with your next copy of ELBUG (Vol.2 No.1). You will have seen from 
the previous issue that we now have available an attractive binder to contain all 
the issues of volume 1, and there is provision to include the index as well. The 
next issue of ELBUG will be the Christmas issue, so you can expect an entertaining 
and seasonal magazine. 


THIS MONTH'S MAGAZINE 

This issue sees the publication of the last part in our series on Electron 
Graphics. We have tried to finish with something of a flourish by including no less 
than five interesting examples of graphics programs. We hope you have found this 
series both useful and entertaining, and no doubt we shall be returning to the 
fascinating world of graphics in future issues of ELBUG. 


Amongst the letters that we receive from ELBUG members, problems with the use of 
cassettes feature quite prominently. If you have troubles when using cassettes 
then you should find the article on this subject by Peter Rochford to be of great 
practical help. 


We have also included in this issue another most useful utility in the form of a 
program compacter, which will shrink a larger program so that it will fit into the 
available memory. This is particularly useful when writing programs that use one of 
the 20K graphics modes (modes @ to 2), and can sometimes make the difference between 
a working and non-working program. 


There are lots more articles and programs in this issue of ELBUG plus reviews of 
all the latest software, hardware add-ons and books all helping you to make the most 
of your Electron. 

Mike Williams 


OTICE BOARD NOTICE BOARD NOTICE BOARD NOTICE BQ 


Magazine Cassette 

All the programs in this month's magazine are available on cassette and 
this month we have added two extra programs, the winning entry in the by Dave 
Channing in the'Oddfactors' Brainteaser competition (set in the June supplement) , 
and a machine code action game, Astro Wars, by Alan Malik. This makes the magazine 
cassette even better value this month, amd you can get one cassette free if you 
take out a subscription now (see the back cover for details). 


Hint Winners 
This month the £18 prize goes to P.Jollyman and the £5 prize to E.Westhead. Any 
new hints will always be most welcome. 
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FIREWORKS DISPLAY 


by D.D. Harriman 


The short program listed here, by D.D. Harriman, is a good example 


of an animated graphics display. 


such it is an excellent 


demonstration of the use of the VDU19 instruction described in this 


month's "Electron Graphics" 


and provides a colourful 


animation of a cluster of exploding fireworks. 


To use the program, just 
type it into your Electron, and 
run it. The display uses mode 2 
to build up a pattern of 
coloured dots. After a short 
delay the program will then 
animate the display to produce 
a multi-coloured sequence of 
exploding fireworks. 

The fireworks program listed 
here is both brief and quite 
simple. A short section of 
code (contained in the 
procedure PROCF) displays a 
series of dots on the screen in 
different colours to represent 
three different types of 
firework (lines 168 to 186, 190 
to 216 and 228 to 260). The 
colours are then redefined in a 
fixed sequence (using the 
procedure PROCPP called 
repeatedly at line 27%) to 
produce the impression of 
movement. 

1@ REM PROGRAM FIREWORKS 

26 REM AUTHOR D.D. HARRIMAN 

3@ REM VERSION E1.@ 

46 REM ELBUG OCTOBER 1984 


168 ON ERROR GOTO 306 

11@ MODE 2:COLOUR] 43:COLOUR14 
128 VDU19,15,0;0; :VDUI9,14,7;9;12 
138 VDU23,1,0;0;9;0; 
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58 REM PROGRAM SUBJECT TO COPYRIGHT 


146 Q%=G: PROCF (300,0,0,180,9, 

13,8) 

150 X2$=X1$:Y28=Y1%:F23=F1% 
168 FOR A=@ TO PI*2 STEP PI/8.5 
17@ PROCF(X2%,Y2%,COS A*5@,SI 
N A*5G,9,999,F23) 
188 NEXT: Q%=1 
198 FOR A%=-8 TO 8 

200 PROCF (980,0,A%,78+RND(19) 
75,999,8) 

21 NEXT: F23=0 

228 FOR A=@ TO PI*2 STEP PI/7 

238 GCOLG,F2%:MOVE6GG, 800 

248 DRAW6GG+COS A*50,800+SIN 
A*5@ 

258 PROCF(600,886,COS A*50,SI 
N A*5G,9,999,F2%) 

260 F2%=F2$+1:NEXT 

27@ REPEAT PROCPP: UNTIL INKEY 
@<>TRUE 

288 END 

298 : 

386 MODE 6 

31@ ON ERROR OFF 

326 IF ERR<>17 REPORT: PRINT" 
at line ";ERL 

33@ END 

340 : 

1866 DEF PROCW 

101% TIME=0:REPEAT UNTIL TIME>3 

1628 ENDPROC 

1038 : 

1848 DEF PROCPP 

16508 C%$=RND(7) :FOR F%=9 TO 13 

1068 PROCW:VDU19,F%,C%;G;19, (F 
$+13)MOD14;0;¢ 

1678 NEXT 

1688 ENDPROC 

1698 : 

1168 DEF PROCF (X%,Y%,XM%,YM,G, 
N%,F%) 

111@ FOR K%=1 TO N% 

1128 X$=X$+XM$/1.5: YS=YS+YM/1.5 

1136 YM=YM-G:F%=(F%+1)MOD14:GC 
OLG,F% 

1148 PLOT69,X%,Y% 

115@ IF X%$>-1 AND X%<128@ AND 
Y%>-1 AND Y%<1024 NEXT ELSE K%= 
9999:NEXT 

116@ X1%=X$: Y1S=YS:F1S=FS B 

1178 ENDPROC 
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NEW ELECTRON ADD-ONS 
Reviewed by Alan Webster 


This month sees the emergence of three new add-ons for the Electron, 
a ROM expansion board, a printer interface and a combined printer 
and joystick interface. 


Product : Slogger ROMBOX companies start to produce ROM-based 
Supplier : Slogger Advanced Systems, software for the Electron. Some 
215 Beacon Rd., Chatham, software already exists on ROM such as 
Kent. MES 7BU. Slogger's STARMON which is a machine 


Price : £39.58 incl. VAT code monitor. Other ROMs for the BBC 

: micro will work partially on the 
Electron provided that they are not 
dependent upon the use of function keys 
and mode 7. Examples are Acornsoft's 
BCPL, Printmaster and Graphics ROM from 
Computer Concepts, and BEEBUGSOFT's 
Exmon and Toolkit, both of which will 
be available in Electron versions soon 
(watch the supplement for further 
announcements) . 


The ROMBOX is a_ sound product that 
will provide the necessary expansion to 
accomodate ROM based software as it 
becomes available. The ROMBOX also 
ie (lt ae provides a connector for further 
The first of the add-ons to be expansion. Many potential purchasers 
reviewed this month is a ROM expansion are, however, likely to be put off by 
box from Slogger Advanced Systems which the rather crude appearance compared 
will hold up to eight extra ROMs. ROM with the Electron itself. 
based software has already proved very 
successful for the BBC micro and the 


story is likely to be the same for the Product : Printer Interface ‘ 
Electron now that these add-ons are Supplier : First Byte, 10 Castlefields, 
available. The box is made of moulded : Main Centre, Derby. DE] 2PE. 
plastic in a darker shade of cream than Price + £34.95 incl. VAT 


the Electron. It is a pity that a 
little more trouble was not taken in 
the design of the ROMBOX to ensure a 
better match between the two units. 


The unit plugs onto the edge 
connector at the back of the Electron 
and has two. plastic screws to ensure 
a firm fixing. Although the ROMBOX has 
its own edge connector for further 
expansion, this does not provide any 
screw holes for the firm attachment of 
any such add-ons. The unit is supplied 
with an eleven page A4 manual, and 
contains very detailed instructions on 
the connection of the ROMBOX am the 
fitting of ROMs and RAMs. 


First Byte were one of the earliest 
companies to produce an add-on for the 
This type of expansion is bound to Electron when they produced their 


become more popular as_ software joystick interface (reviewed Vol.1 
i 
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No.7). This printer interface is The PRINT STICK from SIR Computers Ltd 
identical in appearance, with follows their ROM board which was 
everything enclosed in a very neat reviewed in ELBUG Vol.1 No.5. 
moulded plastic case. As with the 
joystick port, there is no means of any In appearance, PRINT STICK is quite 
further expansion. different from the previously released 
ROM board, consisting of a fairly large 
The printer interface is packaged in flat pack that is a push fit onto the 
a glossy and colourful box, and the Electron's rear edge connector. Moulded 
instructions for the use of the in black plastic the interface provides 
interface are also printed on the a parallel printer connector and two 
packaging. All printers using a switch-type joystick ports (Atari style 
standard parallel Centronics interface joysticks) similar to the First-Byte 
should work with the Electron using joystick interface. 
this interface. The printer is readily 
controlled from the facilities already The unit contains its own software 
built into the Electron's operating to provide the user with two extra 
system. commands (*DEFINEKEYS and *SCREENDUMP) 
providing useful and convenient control 
As with the joystick interface, of the interfaces provided. The keys 
First-Byte are to be congratulated on equivalent to joystick directions are 
producing such a good looking and well defined using the first command. This 
designed product. allows almost any suitable game or 


other software to be quickly adapted to 
joystick control. For example if your 
game used the keys Z, X, *, ?, and 
RETURN for left, right, up, down and 


Product : PRINT STICK fire, then you would’ define’ the 
Supplier : SIR Computers Ltd., joystick to be equivalent to these 
91 Whitchurch Rd., keys. 
Cardiff. CF4 3JP. 
Price : £45.95 incl. VAT The interface also contains a screen 


dump for a printer, including shading 
if the picture is in colour. This is 
activated by the command *SCREENDUMP, 
or by pressing Func and Copy together, 
and is a most useful feature of this 
device. 


Overall, this interface is very well 
made and obviously a lot of thought has 
gone into its functional design. The 
built-in software functions are an 
excellent feature. All this is marred 
by the rather ‘cheap and nasty' 
appearance of the black plastic casing 
which again does not match well in 
appearance with the Electron. & 


INTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


ELECTRON CLOCK IMPRESSION - R. Angus 

The following program will enable an Electron to do an impression of a clock. It 
uses the cassette motor relay to produce the ticking noise. However, we don't advise 
you to leave your Electron ticking away or you might wear the relay out! 


1@ REPEAT TIME=@:*M.1 
2@ REPEAT UNTIL TIME>100:TIME=@6:*M.@ 
3@ REPEAT UNTIL TIME>1@@:UNTIL @ cS 
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DIGGER 


by Andrew Logan 


Digger is an arcade style game based on the popular home micro game 
of 'Monsters' or 'Panic!'. It is a one player game in which you have 
to kill the gremlins before they kill you, and I am sure you will 
find this an amusing and challenging game. 


On running the program, you are 
presented with instructions on how to 
play and the keys to use. After 
pressing the space bar, the screen is 
drawn and the game starts. The screen 
consists of a number of walkways made 
from brick with several different 
height ladders connecting each floor. 


The game starts with you being 
chased by three gremlins. To kill the 
gremlins you must dig a hole in the 
floor by pressing the space bar three 
times. When a gremlin falls into the 
hole you must hit it on the head with 
your shovel (by pressing the space bar 
again) so that it falls through to the 
next floor and dies. As you progress to 
the next level, you must dig two holes 
directly underneath each other:.and drop 


~y 


"> 
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the gremlin through both in order to 
kill it. On the third level the 
gremlins have to be dropped through 
three levels and so on. 


To make the game harder, you only 
have a limited amount of oxygen which 
slowly runs out while you play each 
level. If your oxygen runs out’ then 
you suffocate and the game ends. You 
start the game with three lives, and 
lose a life every time you are caught 
by a gremlin. 


The keys to use for playing the game 
are 'Z' and 'X' for left and right and 
'*' and '?' for up and down. The 
spacebar is used to dig and to hit the 
gremlins on the head. 


1@ REM PROGRAM DIGGER 

28 REM VERSION E@.4 

38 REM AUTHOR ANDY LOGAN 

40 REM ELBUG OCTOBER 1984 

58 REM PROGRAM SUBJECT TO COPYRIGHT 


188 ON ERROR GOTO 3186 
118 MODE1:PROCtitle 
128 MODES: PROCstart 
138 S%=6:US=1:H3=3 

148 PROCinit 

158 PROCplatform 

168 PROCladder 

178 PROCsu 

186 TIME=@ 

198 REPEAT 

206 PROCm: PROCg 
PROCscore 
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220 UNTIL DEAD% OR CO%=3 
230 IF BON%<=8 GOTO260 
248 IFDEAD% ANDH%<>@ CLEAR:CLS:GOTO14@ 
250 IFCO%=3 U$=U$+1 :CLEAR:CLS:GOTO146 
268 COLOUR3: PRINTTAB (6,18) "GAME OVER" 
: FORT=8TO3000: NEXT: *FX15 
278 G=GET:CLEAR:CLS:GOTO 130 
28¢ END 
296 : 
1000 DEFPROCtitle 
1816 COLOUR3: PRINTTAB(12,2);"D I GGE 
R" :COLOUR] : PRINTTAB (12,3) ; STRINGS (11," 
*M) 
1628 COLOUR2 
1630 PRINT'TAB(2);"Lure the GREMLINS i 
nto the holes that"''"you dig in the br 
ick-work and knock"''"them on the head. 
To kill a Gremlin you"''"must knock it 
through at least the"''"sheet number of 
levels.Kill all three" 
104G PRINT'"Gremlins before the oxygen 
runs out if"''"you are to continue."'' 
'"Keys to use are:"''"Z - Left, X - Rig 
ht, * - Up"''"2 — Down, and SPACE to di 
g or knock." 
1058 COLOUR3: PRINTTAB (12,36) ;"PRESS SP 
ACE": REPEAT: UNTIL INKEY-99:ENDPROC 
1666 : 
1976 DEF PROCinit 
1088 IFU%=9 U%=1 
1698 CO$=G: OXY$=50+ (US* 30) 
11@0 IFUS>=4 OXY%=OXY%+150 
1116 LAS=FALSE: STILL%=FALSE 
1126 DIMA% (20,31) ,E$(5) ,F%(5) ,M$(3) ,PD 
$(2) ,PRLS (2) ,BS (2) , TRAPS (5) , TS (5) ,DM3(5 
) ,SGB (4) 
1130 DEAD$=FALSE: R&=0 
1148 FORI$=1 TO 3:M$(I%) =CHRS (1$+232) : 
NEXTI3 
1158 LS=CHR$231 : PS=CHRS236 
116@ MDS=CHR$239: PRLS (1) =CHR$232: PRLS ( 
2) =CHR$237 


1176 PDS (2) =CHRS$238: PDS (1) =CHR$242 

1188 GS=CHR$236:BS (1) =CHR$24@:BS (2) =CH 
R$241 

1198 SPLS=CHR$243 

1266 ENDPROC 

1218 : 

1228 DEFPROCstart 

1238 VDUI9,1,6,9,0,0 

1248 VDU23,1,0;9;0;0; 

1258 VDU23,230,119,119,0,238,238,8,119 
7119 

1268 VDU23,231,129,129,129,255,129,129 
7,129,255 

127@ VDU23,232,0,9,9,4,7,4,8, 

1288 bere a rea ray 25, 36,34 
1298 VDU23,234,24,24,0,62,125,152,36,68 
1388 VDU23,235,96,98,66,126, 126,36, 36, 


36 


1318 VDU23, 236,231, 36,68,126,219,126,3 
6,60 

1326 VDU23,237,0,0,0,32,224,32,0,0 
1338 VDU23,238,8,0,0,9,128,80,32,64 
1348 VDU23,239,0,0,0,9,8,139,139,255 
1358 VDU23,240,0,8,9,238,238,9,119,119 
1368 VDU23,241,0,6,0,0,0,8,119,119 
1378 VDU23,242,0,0,8,8,1,10,4,2 

1386 VDU23,243,129,66,36,9,9,36,66,129 


1396 A%=@:REM SET HI-SCORE 

146 ENVELOPE1,1,68,10,-127,240,113,14 
,126,8,0,-126,126,126 

1418 ENVELOPE2,@,80,-119,-50,159,250,1 
98,126,0,0,-126,126,126 

1426 ENVELOPE3,1,9,0,0,0,9,0,126,0,0,- 
126,126,126 

1438 ENDPROC 

1446 : 

1458 DEF PROCplatform 

1468 COLOUR2:CLS 

1476 FORJ%=5T029 STEP3 

1480 FOR I%=9TO 19 

1490 PRINTTAB(1%,J%) ;P$; :A%(I%,J%)=-1 
1588 NEXTI% 

1518 NEXTJ% 

1528 ENDPROC 

1530 : 

1548 DEF PROCladder 

1558 C3=0 

1568 COLOUR] 

1576 FORJ$=4 TO 25 STEP3 

1588 C%=C%+1 

1596 IFC%=3 C=1 

1680 FOR L%=J% TO J%+3 

1616 IFC%=1 PRINTTAB(2,L$%) ;L$; :A%(2,L% 
) =2: PRINTTAB (10,L%) ;L$; :A% (10,L%) =2: PRI 
NTTAB (17,L%) ; L$; A$ (17,L%) =2 

1620 IFC%=2 PRINTTAB(6,L%) ;L$;:A%(6,L% 
)=2: PRINTTAB (14,L%) ;LS$; :A%(14,L%) =2 
1638 NEXTLS 

1648 NEXTJ$ 

1658 FORI$=1TO8 

1668 LX%=(RND(4) *4) -2:LY$=(RND(6) *3) +5 
1676 FORJ$=LY% TOLY$+2 

1686 PRINTTAB (LX%,J%) ;LS; :A% (LX%,J%) =2 
1696 NEXTJ$:NEXTI$ 

1788 ENDPROC 

1716 : 

1726 DEF PROCm 

1738 IF DEAD% ENDPROC 

1746 NS=X$:M$=Y$ :WS=BS : QB=CB 

1758 IFINKEY-73 Z%=3:Y%=Y%-1:GOTO181@ 
1760 IFINKEY-185 Z%=3:Y%$=Y%+1:GOTO1810 
177@ IFINKEY-98 2%=1:X%$=X%-1:GOTO1810 
1788 IFINKEY-67 Z%=2:X%=X%+1:GOTO181@ 
1798 IFINKEY-99 PROCdig:ENDPROC 

1880 STILL$=TRUE: ENDPROC 

1816 STILL%=FALSE 

1826 IFZ%=3 ANDA%(X%,Y%)<>2 X%=N%3: Y8=M 


%: ENDPROC 
— 
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DISOGER 


Lure the GREMLINS into the holes that 


you dig in the brick-work and knock 


them on the head.To kill a Gremlin you 
must knock it through at least the 

sheet number of levels.Kill all three 
Gren before the oxygen runs out if 


you are to continue. 


Keys to use are: 
z Left, X 
Down, and SPACE to dig or knock. 


Right, © - Up 


PRESS SPACE 


1830 IFA%(X%,Y%+1)=@ PROCfall :ENDPROC 
1846 IFZ%=1 ANDX%<1 X%=1 

1850 IFZ%=2 ANDX%>18 X%=18 

1866 IFZ%<>3 ANDX%<>1 ANDX%<>18 SOUND] 
727 185,1 

1870 IFZ%=1 B%=X%-1 ELSEIFZ%=2 B%=X%+1 
1880 C%=Y% 

1898 PROCprint 

1990 IFA%(X%,Y%)=4 ORAS (X%,Y%)=5 ORAS ( 
X%,Y%+1)=6 ORA%(B%,C%)=4 ORA%(B%,C%) =5 
PROCdead 

1910 ENDPROC 

1920 : 

1938 DEFPROCprint 

1949 PROCback (N%,M%) 

195@ PROCback (W%,Q3%) 

1968 COLOUR3: PRINTTAB (X%,Y%) ;MS (Z%) 
1976 IFZ%=3 ORLA% ENDPROC 

1988 COLOUR2: PRINTTAB(B%,C%) ; PRLS (2%) 
1996 ENDPROC 

2000 : 

2018 DEFPROCg 

2020 IFDEADSENDPROC 

2038 R&=R$+1:2IFR3>3 R&=1 

2040 K%=E% (R%) :LB=FS3 (RS) 

2650 IFDM% (R%) =TRUE: ENDPROC 

2060 IFNOTSTILL% SG%(R%) =FALSE 

2070 IFTRAP% (R&) ANDTIME-T% (R&)>306 TRA 
P% (R3) =FALSE:A% (E% (R&) , F3 (RB) ) =—1 sCOLOU 
R2: PRINTTAB (E% (R%) , F% (R%&) ) ;PS:F% (R$) =FS 
(R&) —12E%3 (R$) =E% (R$) +SGN (X$-K%) :GOTO215 
@ ELSEIFTRAP$ (R$) : ENDPROC 

20886 IFSG% (R%)GOTO2100 

2698 IFSGN(X%-K%)=@ ANDINT( (L%-1) /3) =( 
L$-1) /3 SG%(R%)=TRUE: IFRND(1)>.5 P%=1 E 
LSEP$=-1 

2108 IFSG% (R%) ANDA% (K$,L&+SGN (Y$-L$) ) < 
>2 PROCstill:GOTO215@ ELSEIFSG$% (R&) SG$ ( 
R%) =FALSE 

2119 IFL%>Y% ANDA%(K%$,L3-1)=2 F%(R%)=F 
% (R&)-1:GOTO215¢0 

2120 IFL8<Y% ANDA% (K%,L3+1)=2 F%(R%)=F 
% (R&) +1:GOTO2156 

2130 IFINT((L%-1)/3)=(L3-1)/3 ES(R$)=E 
% (R&) +SGN (X$-K3) :GOTO215@ 


2148 ENDPROC 

215@ IFA$(E% (RB) ,F3(R%))=4 ORAS (ES (R$) 
7F% (R&) ) =5:E% (R&) =KS2F% (RB) =L3: PROChyp: 
SOUND@,-15,200,1 

2166 IFE%(R%)<@ E%(R%)=0 

2170 IFE%(R%)>19 E&(R%)=19 

2186 IFA%(E%(R%) ,F$ (RB) +1) =O FS (RB) =FS 
(RS) +12A% (ES (R&) , F% (R$) ) =6: TRAPS (R$) =TR 
UE: :T% (R$) =TIME 

2198 IFAS (E%(R%) ,F3(R%))=8 AS(ES(R%) ,F 
% (RB) ) =4 

2206 IFA%(E%(R%) ,F3(R%))=2 AS(ES(R%) ,F 
%(RB))=5 

2218 IFA%(K%,L%)=4 PRINTTAB(K%,L%) ;SPC 
1:A% (K%,L%) =@ 

2226 IFA% (K%,L%) =5:COLOUR1 : PRINTTAB (K% 
7L%) ; LS2A% (K%,L%) =2 

2238 COLOUR3: PRINTTAB (E% (R$) , F% (R%) ) ;GS 

2240 IF (X3=E% (R$) ANDY%=F% (R&) ) OR (BS=E% 
(R&) ANDC%=F% (R%) ) THENPROCdead 

2258 ENDPROC 

2266 : 

2278 DEFPROChyp: REPEAT: E% (R$) =RND (19) : 
F% (R&) = (RND (9) *3) +1: UNTILE$% (R&) <>X% AND 
F% (R%)<>Y% ANDE% (R%)<>B% ANDES (R$) <>C% 
ANDA$ (E% (R%&) , F% (R&8) ) <>4 ANDAS (E% (RB) , FS 
(R%))<>5 

2288 ENDPROC 

2298 : 

2300 DEFPROCstill 

2310 IFK%=19 P%=-1:SG%$(R%)=FALSE ELSEI 
FK%=9 P%$=1:SG% (R$) =FALSE 

2320 IF(A%(K%+P%3,L%3)=4 ORAS (K3+P%3,L%) = 
5) SG% (R&) =FALSE: PROChyp ELSEE% (R%) =E% (R 
$)+P% 

2338 ENDPROC 

2346 : 

2356 DEFPROCsu 

2368 DEAD%=@ 

2376 COLOUR3 

2388 FORI%=1 TO3:E%(1I%)=8:NEXTI$ 

2390 F%(1)=4:F% (2) =13:F% (3) =25 

2400 FORI$=1TO3 

2416 PRINTTAB(E% (1%) ,F$ (1%) ) ;GS:A% (ES ( 
I$) ,F3(1%))=4 

2420 NEXTIS 

2430 REPEAT: X$=RND (18) :Y8=(RND(8) *3) +1 
: UNTILA$ (X3,Y%)=@ ANDA$% (X3-1, Y%) =G:Z3=1 
:B3=X3-1:CB=YS 

2440 COLOUR3: PRINTTAB (X%,Y%) ;M$ (1) :COL 
OUR2: PRINTTAB (B%,C%) ; PRLS (1) 

2458 COLOUR3: PRINTTAB (3,3) ;"SHEET ";U% 

2468 COLOUR3:FORI$=1TOH$: PRINTTAB(I%,3 
1)MS (1) ;:NEXTIS 

2476 ENDPROC 

2486 : 

2498 DEFPROCdead : PRINTTAB (H%, 31) ;SPC1; 
:H3=H3-1 

2566 DEAD%S=TRUE 

2519 *FX15,0 rad 
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2528 COLOUR3: SOUNDG,3,5,1 

2530 PRINTTAB(B%,C%) ;SPC1 

2548 PRINTTAB(X%,Y%) ;MDS 

2558 ENDPROC 

2560 : 

2570 DEFPROCfall 

2588 LAS=TRUE 

2598 PROCprint 

2608 COLOUR3:LA%=FALSE 

2610 REPEAT 

2620 COLOUR3: PRINTTAB (X%,Y%) ;M$ (3) 
2630 IFA%(X%,Y%)=6 PROCdead 

2640 IFA%(X%,Y%)=-1 COLOUR2: PRINTTAB (X 
%,Y%) ;P$ ELSEPRINTTAB (X$,Y%) ;SPC1 

2650 Y%=Y3+1 

2660 UNTILA$(X%,Y%+1)=-1 ORAS (X%,Y%+1) 
=7 ORAS (X%,Y%+1)=8 ORDEADS 

2670 IFDEAD% ENDPROC 

2680 PRINTTAB(X%,Y%) ;MS (3) :BB=X3-1 :C$= 
Y3-1:2%=3 

2690 IFA%(X%,Y%)=4 PROCdead 

2708 ENDPROC 

2710 : 

2720 DEFPROCdig 

2730 IFA%(B%,C%+3)=2 ORAS (B%,C%+1)=@ O 
RA% (B%,C%)=2 ORY%=28 ORZ%=3 ORB%=G ORBS 
=19 ENDPROC 

2748 COLOUR2: PRINTTAB (B%,C%) ; PDS (Z%) :P 
ROCg: IFDEAD% ENDPROC 

2756 COLOUR2 

2768 IFA%(B%,C%+1)=6 PROCmonstfall:GOT 
02810 

2778 SOUNDG,1,206,1 

2780 IFA%(B%,C%+1)=-1 A%(B%,C$+1)=7:PR 
INTTAB (B%,C%+1) ;BS (1) :GOTO2810 

2798 IFA%(B%,C%+1)=7 A%(B%,C$+1)=8:PRI 
NTTAB(B%,C%+1) ;BS (2) :GOTO28190 

2800 IFA%(B%,C%+1)=8 A%(B%,C%+1)=G: PRI 
NTTAB (B%,C%+1) ;SPC1 

2810 COLOUR2: PRINTTAB (B%,C%) ; PRLS (2%) 
2826 ENDPROC 

2830 : 

2848 DEFPROCmonst fall 

2850 LV%=1 

2868 FORI%=1TO3 

2870 IFDM% (1%) GOTO2890 

2880 IFE%(I%)=B% ANDF%(I%)=C%+1 XX%=E% 
(1%) :YY8=F% (I$) :RR&=I% 

2898 NEXTIS 

2988 COLOUR2: PRINTTAB (XX%, YY%) ; PS:A% (X 
XB,YY%) =-1 

2918 YY%=YY%+1 :COLOUR3: PRINTTAB (XX%, YY 
%) ;GS 

2926 REPEAT 

2930 IFA%(XX%,YY%)=@ PRINTTAB (XX%, YY%) 
7SPC1] ELSEIFA% (XX$,YY%)=6 PRINTTAB(XX%, 


YY%) ;G$ 


ELBUG 


i] 


OCTOBER 1984 


scoRe see 

sHe » fe 
CHEE TEEELCETLELEO LOCC Ee 
HEL TLTLEE AGELELILMLEECL LCC TCecee 
S2EL EEECCOOEOOELIE £80 1400 t20t 
qucernececen cetcer EELEEE LLTLELILLL 
SEEK THEEELK ELLELL CLLECLELLLIL Litt 
THEEIELLEILL EXEKEEEELLELEL LLLLLLILLL 


HEEL TELELELLLILLEL LLLLLGLLLEEE fit 


acarcacifiee Meccereccecce TEELELOLLL 


Boccucconcccscrcoccot osc aes os oo ooo SY 
Seed GOxXVGEN i1:1¢8@ 


2940 YY%=YY%+1 

2950 PRINTTAB (XX%,YY%) ;G$ 

2960 IFINT( (YY%-2) /3) =(YY%-2) /3 LV%=LV 
$+1 

2976 UNTILA$% (XX%, YY%$+1)=-1 ORAS (XX%,YY 
$+1)=7 ORAS (XX%,YY%+1) =8 

2988 TRAP% (RR%)=FALSE 

2990 IFLV%>=U% PRINTTAB(XX%,YY%) ;SPLS: 
SOUND@, 3,5, 1: PRINTTAB (XX%, YY%) ; SPC]: S%= 
S%+ (LV3*10@) : DM% (RR&’) =TRUE:CO%$=CO$+1 EL 
SEE% (RR&) =XXB:F% (RR&) =YY$2:A% (XX%, YY%) =4 
3808 ENDPROC 

3010 : 

30828 DEFPROCscore 

3636 COLOUR3: PRINTTAB(3,1);"SCORE ";S% 
3040 BON%=OXY$- (INT (TIME/1@@) ) 

3050 IFBON%<=99 PRINTTAB(15,31) ;SPC1; 
3660 IFBON%<=9 PRINTTAB(14,31) ;SPC1; 
3076 PRINTTAB (6,31) ;"OXYGEN ";BON%; 
30806 IFBON%<=@ PROCdead 

30948 ENDPROC 

3100 : 

3110 DEFPROCback (BX%, BY%) 

3120 IFA%(BX%,BY%)=@ PRINTTAB(BX%,BY$%) 
;7SPC1:ENDPROC 

3130 IFA% (BX%,BY%)=2 COLOUR]: PRINTTAB ( 
BX%,BY%) ; L$: ENDPROC 

3148 IFA%(BX%,BY%)=-1 COLOUR2: PRINTTAB 
(BX%,BY%) ; PS: ENDPROC 

3150 IFA% (BX%,BY%)=7 COLOUR2: PRINTTAB ( 
BX%,BY%) ;B$ (1) s ENDPROC 

3160 IFA%(BX%,BY%)=8 COLOUR2: PRINTTAB ( 
BX%,BY%) ;BS$ (2) s ENDPROC 

3178 ENDPROC 

3186 : 

3198 ON ERROR OFF 

3200 MODE 6 

3210 IF ERR=17 END 

3220 REPORT: PRINT" at line ";ERL 


3236 END ® 
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CASSETTE TROUBLES 


By Peter Rochford 


This month Peter Rochford takes a close look at the problems that 
you can encounter when using cassettes for storing programs, and 
gives some suggestions to help alleviate the troubles that you may 


come across. 


If there is a particular aspect of 
using a micro that causes more frayed 
tempers than any other, it must be 
loading and saving cassette programs. I 
Must admit that, compared to other 
computers, the Electron like its bigger 
brother the BBC micro does have a 
better cassette interface than most. 


Still, problems do occur from time 
to time for various reasons and 
computer shops seem to spend a great 
deal of their time sorting out 
customers' troubles in this area. 
Remembering to observe a few golden 
rules and armed with a bit of extra 
knowledge, most of these problems can 
be avoided. We'll start by discussing 
two of the simplest (and in my 
experience most neglected) causes of 
problems with loading and saving. 


THE CASSETTES 

Firstly, the cassettes you use on 
your deck must be of good quality. Most 
of the so-called ‘computer cassettes' 
that bear no brand name or label, are 
of dubious quality. The tape they 
contain is thin, possessing poor 
magnetic qualities, has a tendency for 
the brown oxide coating to flake off, 
and is very prone to creasing or being 
chewed up by the cassette deck tape 
transports. Even the cassette shell and 
its mechanism are made to poor 
tolerances, causing uneven tape feed 
and possibly uneven tape speed. 


The Japanese company TDK, well known 
for their high quality audio cassettes, 
are now producing C15 tapes suitable 
for home computer use. These tapes are 
excellent and the only ones that I 
would recommend [We have found that any 
‘quality’ brand will normally produce 
good results - Ed.]. If you are unable 
to locate a shop selling these, try to 
obtain the C45 by the same manufacturer 
that sells for around the same price. 
This may seem a better buy at first, 


but the extra time spent winding and 
rewinding is detrimental to the 
cassette deck and the tape in the long 
run, not to mention inconvenient when 
in a hurry. If you find that 22 minutes 
per side is too long, you can always 
cut and splice the tape to the most 
suitable length. It's worth all the 
effort I can assure you. 


THE CASSETTE RECORDER 


Next, the importance of correct care 
and cleaning of the heads and tape 
transport of your deck cannot be 
overstressed. Sadly, so many people 
seem to neglect this and the results 
are damaged tapes and constant load and 
save problems. I blame manufacturers 
for this, as they never seem to 
emphasize the importance of good 
maintenance in the literature they 
supply with the machine. 


The use of 'head-cleaning tapes' is 
a real waste of time and money and has 
my total condemnation. I spent ten 
years in the hi-fi business and never 
came across a head-cleaning tape that 
cleaned the heads effectively - let 
alone the rest of the tape transport. 
The best way to do the job is with 
cotton wool buds amd a proprietary 
head-cleaning fluid. A company called 
BIB market a kit containing all the 
things you need and this is available 
from most of the better hi-fi dealers. 
Instructions are included on cleaning 
the heads, rubber pinch roller, capstan 
and tape guides. How often you perform 
this operation depends on how often you 
use the deck, but an average guide is 
every three weeks if the machine is in 
regular use. 


With periodic attention paid to the 
cleaning of the transport of your tape 
machine and the use of good quality 
tape you will save yourself a lot of 
aggravation. So, now let's look at some 
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of the more involved problems with 
cassette machines and their causes. 


A great many owners of computers I 
know have all experienced the annoyance 
of getting their new computer home and 
being unable to get the demonstration 
tape, or other commercially made tape 
to load with their cassette deck. This 
may be due to the deck being 
incompatible with the cassette 
interface of the Electron. However, 
quite often it is a case of the 
record/playback head-alignment of your 
cassette recorder being different to 
that of the duplicating machine the 
demonstration tape was made on. 


The problem occurs because when the 
tape passes over the head on your deck, 
the position of the recorded signal is 
mis-aligned on the tape in relation to 
the position of the head. = The 
mis-alignment is never so far out that 
the head picks up no signal at all, but 
just enough to cause a loss in level 
and information. 


The cure is for the position of the 
head on your machine to be adjusted by 
means of a screw on the platform that 
the head sits on. I don't intend to 
give you instructions on how to do it 
yourself for two reasons. Firstly, all 
cassette decks differ in how accessible 
the screw is, making a description too 
involved. Secondly, it is all too easy 
to get into a lot of trouble unless you 
know what you're doing. I therefore 
urge you to take your deck to your 
computer dealer or hi-fi specialist and 
get his engineer to align it using a 
commercially recorded engineering test 
tape. 


If you encounter only the occasional 
load or save problem using your 
computer, try checking the connections 
on the leads you are using and if they 
are even slightly suspect, re-solder 
them using a fine-tipped iron am a 
good quality resin-cored solder. Plugs 
that wobble in their sockets and do not 
provide a firm connection — should 
obviously be replaced. 


Getting a consistently good save or 
load success rate may be just a matter 
of experimenting with the tone and 
volume controls of your recorder until 


you find the best setting. Once you 
have discovered the optimum setting, 
mark the controls accordingly for 
future reference. On some decks, if you 
are using a DIN socket, no amount of 
fiddling with the controls will do 
anything, as the level of these is 
fixed and independent of volume and 
tone settings. 


Electrical interference can often be 
the hidden source of trouble. The 
switching on and off of the thermostat 
on your fridge or central heating can 
send a nasty spike through your mains 
supply and cause your load or save to 
fail at some point. The best answer 
here is, once you have identified the 
offending unit, have it fitted with a 
suppressor by a qualified electrician. 
There are devices on the market which 
you can plug your computer into to 
suppress mains borne interference. 
Sometimes they work, but it may be that 
the interference is not coming through 
the mains itself, but transmitted 
through the air. So it is better to 
suppress the problem at source. 


The last question I am going to look 
at is the most complex. That of tape 
deck compatibility with the Electron. 
You should try and get a machine that 
features a five pin DIN socket and 
preferably has remote motor control. 
Unfortunately, many of the machines on 
the market feature five pin DIN sockets 
which have fixed output levels. 
Provided the specification is within 
that given elsewhere in this article 
and the machine is of high quality this 
probably won't be a problem; there can 
be no guarantees though. Try and avoid 
a machine which relies on the earpiece 
output for loading and the microphone 
input socket for saving. The load 
impedances in both cases are wrong and 
the output of the earpiece socket at 
high volume settings may be large 
enough to damage the cassette interface 
in your computer. The input/output 
levels and impedances for a tape deck 
to match the Electron should be as 
shown in Table 1. 


Any decent hi-fi dealer should be 
able to help you choose the right deck 
given these figures. Don't however, 
think they will guarantee the deck will 
work with the Electron. Bear in mind 
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Input Sensitivity 


Between 65 to 14@mv 
peak-to-peak 
Output Level Between 2@mv to 5v 
peak-to-peak 


Input Impedance Greater than 198k 


Output Impedance Less than 2@¢ohms 


Table 1. 


the question of head-alignment we 
discussed earlier, which may mean 
taking the deck to your dealer for 
adjustment. Tape speed can be quite 
critical on a cassette machine when 
used with a computer. The maximum 
variation in speed from the mean value 
of one-and-seven-eighths inches’ per 
second is expressed as the wow and 
flutter. The wow and flutter figures 
should be lower than plus or minus 2% 
on any machine you wish to consider 
buying. 


The really expensive stereo 
radio/cassette recorders usually allow 
manual or automatic recording level. 
Use the manual control if yours has 
this facility and set the level on the 
recording meters to just below the zero 
VU mark. Also, don't forget to switch 
the unit into mono mode if possible. 


Don't be tempted to go for the 
cheapest machine. The extra expense 
will mean a deck which has a better 
chance of performing reliably, and with 
greater longevity. In addition, if you 
buy a good machine you can use it for 
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other tasks apart from a data recorder. 


Finally, there are a few other do's 
and don'ts to remember that might help 
save you some problems. 


Apart from keeping the tape heads 
clean, it is worthwhile buying or 
borrowing a head demagnetiser. These 
devices should be used carefully and 
with strict adherence to the 
instructions that come with the unit. 


Correct storage of tapes is an often 
overlooked consideration. Don't leave 
them near magnetic fields such as those 
produced by loudspeakers, electric 
motors, mains transformers and TV 
monitors. Always return them to their 
protective cases when not in use and 
whatever you do, don't touch’ the 
surface of the tape itself. 


If your machine has remote motor 
control, never leave it in the play 
mode with the motor off for longer than 
is necessary. Whilst in this situation, 
the metal capstan is in contact with 
the soft rubber pinch roller causing it 
to deform and this will subsequently 


lead to irregular tape feed. It will 
also put a crease in a tape that is in 
situ, leading to signal dropout when 
that portion is next used. 


We all curse cassette loading at 
some time or other for various reasons. 
Amongst its many disadvantages are that 
of speed and flexibility. If you follow 
the above advice, I am sure it will 
help to remove some of the pain for 
you. 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


FASTER "AND" _IN IF STATEMENTS - S. Williams 

When using multiple conditions in an IF statement it is marginally faster to use 
nested IF commands to replace the AND operator. For example: 

IF A>@ THEN IF B>@ THEN PROCdo 
is marginally faster than 

IF A>@ AND B>@ THEN PROCdo ® 


DIRECT POKE WITH INPUT - J.S. Wellsman 
It is possible to poke a value directly 
command, for example: INPUT "A value "?&7@ will input a value and store it at memory 


into a memory address with the INPUT 


address &7%. The value must be expressed in decimal and, 
greater than 255. 


cannot be 


of course, 


ELBUG OCTOBER 1984 Volume-1 Issue 10 


ELECTRON GRAPHICS (Part 10) 


by Mike Williams 


This month, in the last part of this series on Electron graphics, we 
show you how to achieve really fast and smooth animation of graphics 
displays. We have also tried to include several interesting 
programs. These illustrate the techniques involved and serve to 


round off the series. 


The instructions needed to produce 
animation have already been discussed 
in some detail in the previous articles 
in this series. The animation technique 
itself depends heavily on the use of 
VDU19, which we introduced in part 8. 
So to make a start, let's recap on this 
useful and versatile feature. 


The VDUI9 instruction essentially 
requires two parameters, one to refer 
to a colour relative to the current 
graphics mode, and the other to refer 
to the actual colour to be used. In 
addition, there must be a further three 
bytes, each zero, just for 
completeness. 

For example, in modes 1 and 5, we 
are able to use four colours referred 
to by number as @, 1, 2, and 3. These 
are the relative colour values (RCV) 
and they can be changed to any of the 
16 actual colours available on the 
Electron by using the VDU19 
instruction. By default, colours @, 1, 
2, and 3 are black, red, yellow and 
white in modes 1 and 5. However, if we 
execute the following two instructions: 

VDU19,6,4,8,0,0 

VDU19,3,2,6,8,9 
then the same four numbers will refer 
to the colours blue, red, yellow and 
green, because we have changed the 
relative colours @ and 3. 


Thus in any graphics mode, whether 
two, four or sixteen colours are in use 
we can always use the VDU19 instruction 
to turn these into any set of colours 
we like out of the total of 16 
(including flashing colours) that are 
possible. Indeed we could select mode 2 
and change all 16 relative colours so 
that they all appear as black (or any 
other colour we care to choose) but we 
would then be drawing in black on a 
black background and nothing would be 
visible. However, although this doesn't 
seem initially very useful, this is the 


whole basis of the animation technique 
that we are going to use. 


Suppose we select mode 2 (this gives 
us the use of the maximum 16 colours) 
and we then change all of these to 
black using VDU19. Next we will program 
the computer to draw some object in 15 
different positions on the screen, each 
time using a different relative colour 
(1, 2, 3 etc). If we now use VDUI9 to 
change first colour 1 to white, then 
colour 2 to white and so on, the object 
will seem to appear in each of the 
positions where it was originally 
drawn. With the right set of positions 
this will make the object appear to 
move, and very quickly indeed. We shall 
always need a _ background, so we will 
leave relative colour @ (black) alone 
and just manipulate the other 15. 


Let's now have a look at an example. 
The program ROTATE when run appears to 
make a square rotate about a central 
point on the screen. The main program 
is quite short - VDU29 resets the 
graphics origin to the centre of the 
screen, PROCblackall sets all 15 
‘colours' in mode 2 to black, and 
PROCsquares (288) draws 15 squares of 
size 2080 evenly rotated about the 
central point and all in black so that 
they cannot be seen at the start. Then 
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1@ REM Program ROTATE 

26 REM Version El.1 

30 REM Author Mike Williams 
46 REM ELBUG October 1984 
5@ REM Program subject to copyright 
66 : 

16@ MODE 2 

11@ VDU23,1,0;0;9;9; 

128 ON ERROR GOTO 190 

138 VDU29,640; 512; 

148 PROCblackall 

15@ PROCsquares (20) 

166 PROCrotate 

176 END 


198 ON ERROR OFF:MODE 6 

200 IF ERR=17 THEN END 

218 REPORT: PRINT" at line ";ERL 
220 END 


1006 DEF PROCblackall 
1618 FOR X%=1 TO 15 
1028 VDU19,X%,6,0,0,9 
1038 NEXT X% 

1848 ENDPROC 


1660 DEF PROCsquares (size) 

1676 FOR C%=1 TO 15 

1688 GCOLG,C%:angle=2*PI*C%/15 
1698 PROCdrawsquare(size,angle) 
1100 NEXT C% 

1118 ENDPROC 


1138 DEF PROCdrawsquare (size,angle) 
1148 xl=size*COS (angle) :yl=size*SIN(an 


1158 MOVEG,@:DRAW x1,y1 
1168 DRAW xl-yl,xl+y1 
1178 DRAW -yl,x1:DRAW 0, 
118@ ENDPROC 


1206 DEF PROCrotate 
121@ REPEAT 

1226 FOR C%=1 TO 15 
1238 VDU19,C%-1,0,0,0,0 
1246 VDU19,C%,7,0,9,0 
1258 TS=INKEY (5) 

1268 NEXT C% 

1278 VDU19,15,9,0,0,0 
1288 UNTIL FALSE 

1298 ENDPROC 


PROCrotate simply changes each of the 
colours 1 to 15 in turn to white. This 
gives the effect of a square rotating 
about the centre of the screen and so 
fast that the delay at line 1250 is 
needed to slow things down a bit. The 
beauty of this method is that the 


apparent speed of animation is quite 
independent of the complexity of the 
object being animated since it is only 
the colour which is being changed, 
nothing is being erased or redrawn. 


The program ROTATE shows’ this 
technique being used with line drawing 
graphics (MOVE, DRAW, and PLOT). 
Similar effects can be achieved with 
user defined characters. In the program 
called WALK a small man is defined in 
two positions (legs together, legs 
astride) as characters 246 and 241 at 
the start of the program. Again using 
mode 2 all the 15 colours are set to 
black and the man drawn alternately in 
his two versions across the screen 
(PROCsetup). Once again by changing the 
colour in each position in turn to 
white and back to black, we can make 
the man appear to walk across' the 
screen. In this case, two loops in the 
procedure PROCwalk first make him walk 
from left to right, and then back again 
from right to left. All this is 
achieved simply by using VDUI9 to 
change colour. 


1@ REM Program WALK 

26 REM Version E1.1 

30 REM Author John Wellsman 

46 REM ELBUG OCTOBER 1984 

5@ REM Program subject to copyright 


106 MODE 6 

118 ON ERROR GOTO 2290 

120 INPUTTAB(5,10)"Delay (in centisec 
onds)? "T 

13@ MODE 2:VDU23,1,0;0;9;@; 

146 VDU23,240,28,28,8,127,8,20,34,65 

15@ VDU23,241,28,28,8,127,8,20,20,20 

160 : 

176 PROCblackall 
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SR EL TT, 


188 PROCsetup 

198 PROCwalk 

206 END 

218 : 

228 ON ERROR OFF:MODE 6 
230 REPORT: PRINT" at line ";ERL 
246 END 

250 : 

1606 DEFPROCsetup 

1618 FOR X%=@ TO 15 

1628 COLOUR X% 


1030 PRINTTAB (X%,10)CHRS(248+X% MOD 2) 


:REM Each successive character printed 
to each of the fifteen relative colour 
values in this mode. 

1648 NEXT X% 

1858 ENDPROC 

1668 : 

187@ DEFPROCwalk 

1086 REPEAT 

1698 FOR X%=@ TO 15 

1100 C%=X%: IF Ct=@ THEN C%=1 

111@ M=INKEY (T) 

1128 VDU19,C%-1,0,0,0,9:REM This line 


blacks out the previous character displ 


ayed. 


1138 VDU19,C%,7,0,0,0:REM This changes 


the relative colour value of the next 
character to white. 

1140 NEXT X% 

1156 FOR X%=15 TO @ STEP -1 

1160 C%=X$: IF C%=@ THEN C$=1 

117@ M=INKEY (T) 

1188 VDU19,C%+1,9,0,9, 
1198 VDU19,C%,7,8,09,9, 
1206 NEXT X% 

121@ UNTIL FALSE 

1228 ENDPROC 

1230 : 

1248 DEFPROCblackall 
1258 FOR X%=1 TO 15 


G 
G 


1268 VDU19,X%,0,0,0,0:REM Every relati 


ve colour value switched to black. 


1276 NEXT X% 
1286 ENDPROC 


Of course there are some 
limitations. We are really forced to 
use mode 2 to provide sufficient 
colours and hence positions for an 
object. Because of the need for a 
background colour we are already 
restricted to 15 positions, and if we 
wish to display anything else on the 
screen at the same time then this will 
use up more colours, further 
restricting the number that we can use 
for animation (otherwise any text or 
other graphics would also appear to 


switch on am off). Nevertheless the 
technique is a very useful one indeed 
and widely used. 


Let's have a_ look at some further 
variations on this basic idea. The next 
example called RIPPLE produces a 
different kind of movement. The program 
again uses mode 2 and sets colours 1, 
2, and 3 to be blue, cyan and white. 
The program then draws a_ series of 
short horizontal lines diagonally from 
the bottom to the top of the screen 
using each of the three colours in 
rotation. The remainder of the program 


106 REM Program RIPPLE 

28 REM Version E1.2 

36 REM Author : John Wellsman 

406 REM ELBUG OCTOBER 1984 

50 REM Program subject to copyright 

68 : 

106 ON ERROR GOTO 416 

110 MODE 2 

120 VDU23,1,0;0; 8; 8; 

138 colour=1 

14@ REM This sets RCV 1,2 & 3 initial 
ly to blue, cyan & white 


158 VDUI9,1,4,8,9,9 
166 VDU19,2,6,9,0,9 
178 VDU19,3,7,0,9,9 
180 FOR Y%=@ TO 1000 STEP 19:REM This: 


FOR loop draws horizontal lines 
198 GCOLG,colour:REM This draws each 
line in RCV 1,2 & 3 successively 
206 MOVE 106+Y%/1.5,Y%:DRAW 500+Y%/1. 
5,Y% 
21% colour=colour+1:IF colour=4 colou 
r=1:REM Increases RCV 
226 NEXT Y% 
23@ REPEAT 
248 VDUI9,1,7 
258 VDUI9,2,4 
266 VDU19,3,6 
270 M%$=INKEY ( 
286 VDU19,1,6 
290 VDU19,2,7 
366 VDU19,3,4 
318 MS=INKEY ( 
328 VDU19,1,4 
6 


368 UNTIL FALSE 

376 REM Lines 246 to 340 progressivel 
y change RCV 1,2 & 3 through blue, cyan 
and white. 

386 REM Lines 270,318 & 35@ induce a 
delay. 
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398 END 

419 MODE6:0ON ERROR OFF 

420 IF ERR<>17 THEN REPORT: PRINT" at 
line ";ERL 

439 END 


then progressively changes each of the 
relative colours 1, 2, and 3 through 
the cycle of three colours (7, 4 
and 6). Three complete changes return 
the picture to its original state. The 
effect on the screen is of the three 
colours rippling up the screen. Again 
the apparent movement is completely 
illusory, being purely the result of 
carefully managed colour changes. 


We have already seen that the 
technique is limited by the number of 
colours, thus we can place an object 
in just 15 different positions on the 
screen. However, we can still apply a 
variation on the basic theme when many 
more positions are being used. The 
advantage of having a large number of 
positions is that the movement appears 
to be much smoother. The problem when 
using the MOVE, DRAW and PLOT 
instructions is that you see the object 
as it is being drawn on the screen. If 
it is then erased, maybe by using the 
Exclusive-OR technique described much 
earlier in this series, a jerky and 
flickering effect results. 


This is illustrated in the next 
example called SHIP] - its purpose is 
to make a sailing ship move across the 
sea from left to right. The procedure 
PROCsail draws the ship, (made up of 
triangles) by calling PROCdraw first to 
display the ship, and then to make it 
disappear by drawing it a second time 
in the background colour. This is done 
progressively across the screen. 


18 REM Program SHIP] 
26 REM Version E1.2 
3@ REM Author Colin Opie 
48 REM ELBUG OCTOBER 1984 
5@ REM Program subject to copyright 
68 : 
186 MODE 1 
118 VDU23,1,0;0;0;0; 
126 ON ERROR GOTO 196 
136 VDU19,3,6,9,0,0 
148 GCOLG,3:PROCsea 
158 PROCsail 
168 VDU19,3,7,8,9,@ 
178 END 


198 ON ERROR OFF:MODE 6 

206 REPORT: PRINT" at line ";ERL 
218 END 

220 : 
1668 DEF PROCsea 
1610 FOR X=@ TO 1279 STEP 4 
1628 Y=50+5*SIN(X/1@) 
1638 PLOT69,X,Y 

1040 NEXT X 

1658 ENDPROC 


1878 DEF PROCdraw(X%,Y%,C%) 
1886 PLOT4,X%,Y% 

1898 PLOT4,X%+80,Y% 

1186 PLOT8G+C%,X%+8G,Y3+80 
1118 PLOT4,X%+88,Y% 

1128 PLOT4,X%+88,Y%+80 
1130 PLOT80+C%,X%+128,Y% 
1148 PLOT4,X%,Y%-8 

115@ PLOT4,X%+128,Y%-8 

1168. PLOT88+C%, X$+20,Y%-48 
1178 PLOT4,X%+24,Y%-48 
1188 PLOT4,X%+132,Y%-8 
1198 PLOT86+C%,X3+108,Y%-48 
1208 ENDPROC 


1226 DEF PROCsail 
1236 GCOLG,2 
1248 FORX=8 TO 1279 STEP 4 
1258 PROCdraw(X,1@5,5) 
1268 PROCdraw(X,105,7) 
1276 NEXT X 
1286 ENDPROC 


Unfortunately, the result is not 
very satisfactory for the reasons 
described above. The solution is each 
time to draw the ship in the next 
position in black while still visible 
in the previous position, and then by 
changing colour to switch off the first 
image and switch on the second. Because 
we no longer see the ship being drawn 
the resulting movement is very much 
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smoother. We can change our program 
SHIP] into the new version (SHIP2) by 
replacing the procedure PROCsail by the 
new version below together with the 
additional procedure PROCshow. 


1226 DEF PROCsail 

1230 VDU19,3,3;0; 

1248 FOR X=08 TO 1279 STEP 16 
1258 GCOL1,1 

1268 PROCdraw(X,195,5) 
127@ PROCshow (1) 

1288 GCOL1,2 

1298 PROCdraw(X+8,105,5) 
1388 PROCshow (2) 

1318 GCOL3,1 

1328 PROCdraw(X,195,5) 
1338 GCOL1,1 

1348 PROCdraw(X+16,105,5) 
1358 PROCshow (1) 

1368 GCOL3,2 

1376 PROCdraw(X+8,105,5) 
1386 NEXT X 

1398 ENDPROC 

1406 : 

1418 DEF PROCshow(S$%) 
1428 P%=3:REM YELLOW 
1438 VDUI9,S%,P%,G,9,G 
1449 DU19,3-S%,0,8,0,9 
1458 ENDPROC 


The new version is longer because 
there is a complication in this new 
technique. Each of the new ships 
overlaps the previous one, so we 
actually need to use three relative 


colours. Colour 1 is used for the first 
display and colour 2 for the second. On 
the third display we want to erase the 
display drawn in colour 1, but not the 
one in colour 2. This is achieved by 
using GCOL1,c when drawing the ship and 
GCOL3,c when erasing the ship where c 
is the relative colour, alternately 1 
and 2. Relative colour 3 is set to 
yellow, the colour of the ship, at the 
start of the procedure PROCsail, 
because any overlapping points between 
two images are always visible until the 
previous image is erased. The purpose 
of the procedure PROCshow is to 
switch colours 1 and 2 between black 
and yellow each time it is called, 
causing one image to appear and the 
other to disappear, ready to be erased 
before the next image is invisibly 
drawn. 


Clearly, from this last example, 
animated graphics can quickly become a 
complicated subject. If you want to 
understand the techniques described 
here fully, then time spent studying 
and playing with these programs will be 
well rewarded. 


This now completes our series on 
Electron graphics. We have progressed 
from very basic ideas to some quite 
sophisticated and complicated 
techniques. The world of graphics is a 


fascinating one and also a most 
rewarding one for the computer 
programmer. Have fun. @ 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


REVERSING FLAGS - R. Sterry 


To change a boolean flag between its states (FALSE and TRUE) you could use: 
IF FLAG$=TRUE THEN FLAG$=FALSE ELSE FLAG$=TRUE 


More elegant however is: 
FLAG%=NOT FLAG% 


SIMULATED BBC TAB KEY - Edward Westhead 


A lot of BBC programs will work on the Electron, but some use the Tab key, which 
is not present. For most programs (apart from some games), this can be simulated by 
pressing the Ctrl key down and at the same time pressing the 'I' key, still 
with the Ctrl key held down. This is known as a Control-I. @ 


WAITING FOR KEYS - K. Allen 


To make a program wait until no keys are being pressed use: 


REPEAT UNTIL INKEY (-129) 


To make it wait for a key to be pressed, use: 


REPEAT UNTIL NOT INKEY (-129) 
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NEW GAMES FOR YOUR ELECTRON 


Name : Ghouls 
Supplier : Micro Power 
Price 3 £7.95 
Reviewer : Alan Webster 


Rating : **** 


FOO ooo 
FOO Go 


CaaS 


iG) > 


Do wou want 
Music while the 


V,vame loads ‘if 


"Ghouls' takes place inside a creepy 
mansion set on the top of a hill. Your 
aim is to find the “power jewels" 
whilst trying to avoid the nasty 
inhabitants of the mansion, deadliest 
of which is the ghost. You have to run 
and jump around the floors, avoiding 
poisonous spiked traps and trying not 
to fall off the escalators. Avoid the 
ghosts at all costs, though these can 
be made to disappear for a time by 
eating a stray ‘power pill'. 


There are four different screens in 
this game and each screen has its own 
room name. In my opinion the sound in 
this game detracts from the overall 
enjoyment, but this can be switched off 
if required from within the program. 


I am sure that this game will sell 
well as it is a lot of fun to play. It 
requires the use of only three keys so 
that it is easy to operate. As an extra 
bonus, for people who have a joystick 
interface, this game will allow you to 
use switched-type joysticks (i.e the 
type used by the First Byte interface 
reviewed in  ELBUG Vol.1 No.7) to play 
the game. 


Name : Mr.Wiz 

Supplier : Superior Software 
Price 2 £7.95 

Reviewer : Alan Webster 
Rating : *** 


Mr.Wiz is a version of the arcade 
game 'Mr.Do' in which you take the role 
of a wizard trying to collect the 
cherries in his garden. There are the 
usual gremlins to avoid, and these can 
be killed by dropping apples on them. 
You also have a crystal ball which you 
can throw at the gremlins to kill them. 


There are about eight different 
sheets, and the game can become quite 
difficult at some stages. Despite this, 
my overall impression is that the 
movement and sound in this game are 
disappointing. The basic concept on 
which the game is based is certainly a 
good one, but I did not find that the 
action was fast enough in this 
implementation to produce an enjoyable 
game playing experience. 


Name : The Wheel of Fortune 
Supplier : Epic Adventures 
Price : £9.95 

Reviewer : John Waller 

Rating $ ReKe 


Adventure games have something of a 
cult following amongst micro 
enthusiasts. This excellent adventure 
from Epic contains some of the advanced 
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You are walking slong the well path 
You are welking slong the well path 
There is here: 

® pocket watch 

You are walking sleng the path. there 
is oads te the seuth and an cold 


eressr 
well te the nerth 


You are on 2 
seuth ef the 
fields to the 


Mhat now? 


features first seen in ‘The Hobbit' 
from Melbourne House. The aim in this 
adventure is to find the 'Wheel of 


Fortune' and escape the mystical world 
into which you have been plunged. There 
are some '‘intelligent' characters in 
the game who help (or hinder) your 


progress. Be careful how you treat 
these as they have varying moods, and 
will do their best to kill you or lock 
you up in jail if you ill treat them. 
You have been warned! 


Complex commands of up to 254 
characters are allowed. You can talk to 
the more intelligent characters, but 
they tend to be a bit deaf and not very 
helpful. The function keys can be 
defined to store the more common 
instructions to speed your progress 
through the game. There is also a very 
fast 'Save game' facility, so you don't 
have to work your way through the 
initial stages of the game every time 
you play. 


Overall this is  an_- excellent 
adventure, which will prove satisfying 
to the novice adventurer, yet still be 
challenging to the more experienced 


player. & 


SS EE EEE TIE COLO, 
MULTIPLE PROGRAMS IN MEMORY 


By Nigel Harris 


If you've had your 


Electron for many months now, 


already wondering if there are ways of reducing the number of 


you're perhaps 
times 


that you have to load a program from your cassette recorder. Here is 


a simple idea which will 


help do just that. It also allows one 


program to operate on another in memory at the same time. 


In the Acorn Electron you have at 
your mercy 32k of "random access 
memory". Of course not all of this is 
directly available for your use. Some is 
used by the computer's operating system 
and some by the computer's peripheral 
ports; the rest is left for you and 
your program. When using Basic, you can 
expect to have as much as 20k of space 
for a program, though this will depend 
on the screen mode chosen. If you're 
like me, the chances are that the great 
majority of your programs use only a 
part of this, the rest going vacant for 
the duration of the program. When one 
realises this, the obvious question is 
how the remaining empty space might 
best be used - how about, for example, 
having more than one program in memory 
at the same time? 
PAGE, TOP, LOMEM & HIMEM 

When a BaSic program is loaded in 
memory, the computer's Basic interpreter 
needs to know where to find it. That 


is, where the program starts and ends. 
It also needs to know where the 
beginning of unused memory is and where 
the display memory starts. All of these 
positions have got names and you can 
print out their values on the screen. 


Typing PRINT ~PAGE (followed by 
Return - the squiggle is tilde; Ctrl and 
the left arrow keys together) will print 


the start address of your current 
program and it will normally be the 
value E@@, in hexadecimal notation, or 


‘computer-speak'. TOP 
to the top of (or 
program. So after 


rather &E@@ in 
points, as it says, 
the end of) your 
you've loaded a program, printing the 
difference, TOP-PAGE, will tell you its 
length in bytes. LOMEM and HIMEM define 


the empty memory that's left over 
between the top of the Basic program 
(LOMEM) and the bottom of the memory 


that's used for the screen display. 
TOP and LOMEM will usually have the 
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same value before a program is run, but 
during run time, LOMEM moves away from 
TOP as the memory between them is used 
up by the variables in the program. So 
LOMEM points at the last byte used in 
this work space or ‘heap’. 


You can control the values of these 
variables to some extent but the most 
useful variable that you can control is 
PAGE. Provided that you leave enough 
space for each program and for its heap 
to grow (this includes space for 
variables, arrays, procedure and 
function calls and - most thirstily of 
all - strings) then you can set PAGE at 
different levels throughout memory and 
load a different program at each point. 


If you type in a program, don't 
forget to type in NEW before you start, 
this forces Basic to reset the other 
pointers to agree with PAGE's new value. 
If you load a program this is not 
necessary as the computer automatically 
does a NEW itself. Suppose you had 3 
short programs "A", "B", and "C" on 
tape. You could type (assuming that 
PAGE is already set to &E@O, the 
default setting on switch-on): 

LOAD "A" <return> 

PAGE=&1086 <return> 

LOAD "B" <return> 

PAGE=&2006 <return> 

LOAD "C" <return> 
After each LOAD command, you should 
wait while the program is 
loaded before proceeding to the next 
step. 


To use any one of these three 
programs, you must first set the 
pointers to find the one required. All 
that is needed to do this is to type 

PAGE=&1988 <Return> 

OLD <Return> 


RUN <Return> 
which runs the program "B". For one of 
the others simply set PAGE accordingly 
and type OLD and RUN. 


You can also arrange for one program 
in memory to switch automatically to a 
different program. 


As an experiment you might like to 
try the following two programs. Type NEW 
and then enter these lines (without 
running them). 

1@ ON ERROR END 

20 PRINT TAB(5,5) "PROGRAM ONE here" 

30 TIME=@:REPEAT UNTIL TIME=290 

40 MODE 6 

58 PAGE=PAGE+&1@@: RUN 
Now change the value of PAGE by typing 

PAGE=PAGE+&19@@ <Return> 

NEW <Return> 
and enter the next short program 

1@ ON ERROR PAGE=PAGE-&10@: END 

206 PRINT TAB(3@,20) "PROGRAM TWO here" 

38 TIME=9:REPEAT UNTIL TIME=209 

40 MODE 6 

58 PAGE=PAGE-&199: RUN 


Run either program and you will 
actually find that both will keep 
running alternately until Escape is 
pressed. Notice however, that only one 
program is executed at a time, although 
removing line 38 from both programs 
may make it look as though they were 
running simultaneously. An enlargement 
on this technique is used in bigger 
computers to make them appear to do many 
jobs at the same time. 


This is rather a brief 
description, but hopefully one that will 
help in understanding the way that your 
Basic programs fit into the Electron's 
memory. Exploiting the ideas touched 
upon here, you may now find more 
effective ways of using your machine. @ 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


ANOTHER ROUNDING ERROR - G.Shally 
This should return 1 but it actually returns @: 
PRINT (46.21*198) MOD 190 

You can investigate this further with the following two short lines: 
PRINT 46.21*169-4621 ie 


PRINT INT (4@.21*100) 


SPEED IMPROVEMENT WHEN HANDLING LOGICAL VALUES - R. Jeffery 


When storing the logical values TRUE and FALSE these are represented as the 
numbers -1 and @ respectively: These can be stored in a floating point variable, but 


this is much slower than using an integer variable for the same purpose e.g. 
ok%=TRUE. & 
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COMPACTING BASIC PROGRAMS 
by David Tall 


If you have problems in getting your larger programs to fit into the 
available memory, then the utility described here will be a great 
help in finding the extra space which you require. 


INTROD 

Several of the articles that we have 
published in various issues of ELBUG 
have emphasized the desirability of 
presenting programs in a clear and 
readable format. Indeed this is 
something we try to achieve with all 
the programs listed in ELBUG magazine. 
Clarity and readability are achieved 
principally by two. devices, the 
inclusion of comments wherever 
appropriate and the frequent inclusion 
of spaces to separate the different 
parts of an instruction. 


Of course, excessive use of both 
these features would considerably 
lengthen any program and increase the 
amount of typing when entering a 
program through the keyboard. Even so 
it is true to say of most programs that 
a significant proportion of memory 
space is used to store information 
(spaces and comments) which is totally 
unnecessary for the correct execution 
of the program by the computer. For 
example, we normally list all programs 
in the magazine with one space between 
the line number and the start of the 
instruction on each line. There is no 
need for this at all as far as the 
computer is concerned, but it certainly 
helps to make the program more 
readable. 


Now most of the time, the extra 
memory used up in this way is of no 
consequence, but sometimes, 
particularly with larger programs, you 
can run out of memory, either when the 
program is running, or even earlier 
when trying to type the program in. 
This is most likely to occur when using 
modes 8, 1 and 2, which require 20K of 
memory for the screen display, than it 
is for the other modes where the screen 
display uses only 10K of memory, for 
example, in modes 4 and 5. 


Sometimes the situation becomes very 


critical, and it is then that the 
ability to recover as much free memory 
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space as possible can be invaluable, 
and the way to do this of course is to 
remove all unnecessary spaces and 
comments. Now it would be possible but 
very tedious to do this by hand, and 
that is where the utility listed here 
will come into its own by doing this 
for you quite automatically. 


You may wonder how, if you don't 
have enough memory for your own 
program, you can now run a_ second 
program to compact and squeeze out the 
spaces. This is achieved by writing the 
compacter program in machine code, and 
storing it lower down in memory in an 
area not used for Basic programs. 


SETTING UP_THE PROGRAM COMPACTER. 

The program listed here, called 
PACK, should be typed in and saved to 
cassette as for a normal Basic program. 
For example: 

SAVE "PACK" <return> 
Take care if you are unfamiliar with 
machine code to ensure that you copy 
the program accurately. You can also 
save yourself quite a lot of time and 
effort by omitting the '\' character 
and any text following this character 
up to the end of that line. These are 
just comments and can thus be safely 
left out. 


To produce a working version of the 
PACK program, run the program and when 
it stops (the machine code has now been 
assembled) type as follows: 

*SAVE COMPACT B@8 D@B B73 <return> 
This will save the actual machine code 
on cassette under the name of COMPACT. 
This is the program you will use each 
time you want to perform a compaction. 


USING THE COMPACT PROGRAM 


There are two ways of running this 
version of the program. First, however, 
load in the program to be compacted. 
Then you can type: 

*LOAD COMPACT <return> 
in order to load the compacter into 
memory, and you can then use function 
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key 1 (Func/f1) to compact your 
program. Alternatively after loading 
the program to be compacted you could 
simply type: 

*RUN COMPACT <return> 
which will automatically load the 
machine code and then run it. The 
compacter occupies that part of memory 
reserved for function key definitions 
and user defined characters. Provided 
you do nothing to alter the contents of 
these memory areas, the compacter will 
remain in memory, and may be called by 
using Func/f1 whenever required. 


The compacter program when run 
offers three independent choices as 
follows: 


SPACES? To remove spaces. 

REMs? To remove Basic REM 
statements. 

COMs? To remove assembler 
comments. 


You should answer Y (yes) or N (no) to 
each choice in turn. If you don't have 
any assembler code in your program it 
will not matter what reply you give to 
the third choice. If you choose to 
remove spaces, then only those spaces 
not essential to the program will be 
removed. For example, any spaces 
enclosed within quotes, such as may 
occur with a _ PRINT instruction, will 
always be left alone. 


It is quite a good idea with large 
programs to keep two copies, one 
containing spaces and comments for 
readability as the prime copy, and a 
compacted version as the working copy. 


1@ REM PROGRAM PACK 
28 REM VERSION E@.1 
30 REM AUTHOR David Tall 


4@ REM ELBUG OCTOBER 1984 


58 REM PROGRAM SUBJECT TO COPYRIGHT 


76 REM To reside in pages &B@G, &C0d 


86 REM RUN the program & then 
90 REM *SAVE "COMPACT" BOG DOG B73 


186 REM The *SAVEd program may be *RUN 


118 REM to compact BASIC programs. 


12@ REM Reply Y to SPACEs? to remove 


13@ REM redundant spaces. 


146 REM Reply Y to REMS? to remove RE 


15@ REM Reply Y to COMMENTs? to delete 
168 REM comments in assembler coding. 


23 


180 *FX18 

190 *K.1 CA.&B73|L|M 

208 : 

218 S&B5F="SPACES?REMsS?COMs?" 

220 FORN$=@TO1 : P$=&B73 

230 [OPT3*N%:CLD: LDA#&5E: STA& 7G: LDA#& 
B:STA&71:LDX#2: LDY#0 

248 .a LDA(&7@) ,Y:JSR&FFE3: INY:CMP#&3 
F:BNEa\print options 

250 .x JSR&FFEG: AND#223:CMP#89:BEQy:C 
MP#78:BNEx\input response Y or N 

260 .y STA&74,X:JSR&FFE3: JISR&FFE7: DEX 
:BPLa\store response (& print it) 

270 INX: STX&76: STX&72: STX&7C: STX&7 
D:STX&8@: LDX&18:STX&71 :STX&73\ store 

line-start pointers & set ASSEMBLER fl 
ag = @ 

288 .b CLC:LDA&72:ADC&7D: STA&72:BCCc: 
INC&73\start of next input line 

298 .c CLC:LDA&7@:ADC&7C: STA& 70: BCCd: 
INC&71\start of next output line 

300 .d LDA#@:LDY#4 

310 .e STA&77,Y:DEY:BPLe\set all flag 
s to zero (except ASSEMBLER) 

320 .f£ INY:LDA(&7@) ,Y:STA(&72) ,Y:CPY# 
3:BEQg :CPY#1 :BNEf :CMP#&FF :BNEf :RTS\tran 
sfer initial bytes & check if last line 

336 .g STA&7C:STA&7D: INY:STY&7E\store 

line lengths & output pointer 

346 .h STY&81:LDA(&7@) ,Y:STA&7F\ (STAR 
T TRANSFER LOOP) store input point 
er & current byte 

358 LDX&7B:BNEt :CMP#&8D:BNEt : LDX#4 
\check for coded numbers (outside quote 
s) 

366 .G INC&81:JSRP:DEX:BPLG:BMIh\if c 
oded, transfer 

376 .t LDX&80:BEQi\if outside ASSEMBL 
ER, go to i 

380 LDX&74 : CPX#&59: BNEu : CMP#&5C :BN 
Eu: STX&79\(in ASSEMBLER) check \ & set 
COMMENT flag accordingly 

396 .u CMP#58:BNEv:LDX#0:STX&79\(in A 
SSEMBLER) seek colon and turn off COMME 
NT flag if found 

406 .v LDX&79:BNE]J :CMP#93:BNEJ : LDX#6G: 
STX&8@\(in ASSEMBLER) if outside COMME 
NT, seek ] and turn off ASSEMBLER flag 
as appropriate; in all cases go to j 

41@ .i LDX&77:BNEo\ (outside ASSEMBLER 
) if in REM delete, move on 

426 CMP#& 22: BNE} : LDA& 7B: EOR#1 : STA& 
7B:LDA&7E\look for ", change QUOTE flag 
as necessary 

430 .j LDX&7B:BNEp\if inside QUOTES m 
ove on to transfer 

446 CMP#91 : BNEk : LDX#1 : STX&8@\ (outs 
ide QUOTES from here on) if [, set ASSE 
MBLER flag 

450 .k CMP#&DC:BEQn\DATA? 
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466 .m CMP#&F4:BNEo: LDX&75 :CPX#&59 :BN 
En:LDX#1:STX&77\REM? - if found & delet 
ion required, set REM flag 

476 .n LDX#1:STX&7A\set DATA flag (fo 
r DATA or REM) 

486 .o LDA&77:ORA&79:BNEG\if REM or C 
OMMENT don't transfer 

490 LDA&7A : ORA&8@ : BNEp: LDA& 7F :CMP# 
32:BNEp\if DATA or ASSEMBLER or not a 

SPACE, do transfer 

580 LDX&76 :CPX#&59: BNEp : LDX#@ : STX& 
82: INY:LDA(&7@) , Y: JSRsearch : BEQq: DEX: TX 
A:EOR#1:STA&82\if SPACES are to be dele 
ted, consider following byte 

516 LDY&7E:DEY:LDA(&72) ,Y: JSRsearc 
h:BEQq:LDX#1:INY\look at previous byte 
transferred 

520 .A DEX: TXA:ORA&82: STA&82: DEY: LDA ( 
&72) ,Y: JSRsearch :BNEA: LDX&82:CPX#@ :BEQq 
\search earlier bytes 

530 .p LDY&81:JSRP:BNEz\transfer byte 

540 .q LDY&81:DEC&7D\don't transfer 

55@ .z CPY&7C:BCCs\check for end of 1 
ine and repeat as necessary 

568 LDA&79:BEQw: INC&7D\adjust for 
COMMENT (1 deletion too many!) 

570 .w LDA&7D:CMP#5:BCCr\if line leng 
th less than 5, abort current line tran 
sfer 

588 LDY#3:STA(&72) ,Y:JMPb\else tra 
nsfer adjusted line length & move to ne 
xt line 

590 .r JMPc\(abort) 

606 .s INY:JMPh\(next byte) 

610 .search LDX#@:CPY#5:BCCF :CMP#&36: 
BOCF :CMP#& 3A : BCCN: CMP#& 4: BCCF :CMP#&5B: 
BCCL: CMP#&5F : BCCF : CMP#& 7B : BCSF 

620 .L INX 

630 .N INX 

640 .F LDA#&20:CPX#@:RTS\consider byt 
e, X = 1 (number), = 2 (letter), = @ ( 


otherwise) 

650 .P LDA(&7@) ,¥:LDY&7E:STA(&72) ,Y:I 
NC&7E:LDY&81:RTS\ (transfer) :] 

660 NEXT: END 


TECHNICAL NOTES 

It is beyond the scope of this 
article to explain in detail the 
working of the compacter program. 
However, it is interesting and 
informative to examine some of the 
ideas involved. In principle, the 
compacter program needs to start at the 
first byte or character of the program 
to be compacted, working through it 
character by character to analyse the 
structure and take action as required. 
Thus the prime need is for an 
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understanding in some detail of howa 
Basic program is stored in the 
Electron's memory. 


The starting point for any Basic 
program is referred to as PAGE, amd if 
you print out the value of PAGE (PRINT 
PAGE <return>) you will see where this 
is. Unless you have changed the value 
of PAGE yourself (or a program has done 
this - see the article in this issue on 
multiple programs in memory) then this 
should be the address 3584 (&E@@ in 
hex). A Basic program is stored as a 
series of coded numbers and we need to 
be able to examine any memory location 
to see the number stored there. This is 
done using a so called ‘indirection 
operator’, in this case '?' (see the 
article in this issue on making 
programs go faster for more information 
about indirection operators). 


If you type 

PRINT ?3584 <return> 
this will display on the screen the 
number stored at memory location 3584. 
If you try this you should find that 
the number 13 is displayed as it is a 
convention on the Electron that the 
first byte of any Basic program is 13. 
In fact this is the ASCII code for 
Return. ASCII codes are used to code’ 
numerically all the different 
characters that are used with your 
Electron and this includes non-printing 
characters like Return and Escape. 


If you have just switched on your 
Electron (type NEW <return> if you have 
been using it for something else) and 
you display the contents of the next 
memory location (3585) on the screen in 
the same way, then you should get the 
result 255. This value is always used 
to mark the end of any Basic program in 
memory. Since there is nothing between 
the two values of 13 and 255 there is 
no Basic program at the moment in your 
Electron. 


If we want to examine a Basic 
program byte by byte it is convenient 
to program one of the function keys to 
do this for us. Before continuing enter 
the following definition for function 
key @ into your Electron: 


*KEY @ I%=PAGE:REPEAT: PRINT I%,?1%,TAB( 
28) ;CHRS (?1$) :I$=1%+1: UNTIL ?1%=255|M 
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This piece of code is essentially a 
loop which looks at every memory 
location starting at PAGE and displays 
the address of that location, the 
number stored at that location, and the 
corresponding character. This continues 
until a memory location is found that 
contains 255. 


To see this in operation, create a 
very short Basic program. For example, 
type in the following two lines: 

106 PRINT "HELLO" 

28 END 
If you now press Func/f@ you will see 
this program listed down the screen 
byte by byte. The first byte contains 
13 as the starting point. The next two 
bytes, containing @ and 16, represent 
the line number. You always multiply 
the value in the first byte by 256 and 
add on the value in the second byte to 
get the line number. The next byte 
always contains a count of the number 
of characters in this line of the 
program, in this case 14. Because the 
maximum value that can be stored in one 
byte of memory is 255 this sets the 
limit for the maximum length of any 
instruction in Basic. 


After the line number and byte count 
you will find the bytes comprising this 
particular instruction which continues 
up to the next byte code of 13 marking 
the end of this instruction. In this 
case the first code is 32, the ASCII 
code for space. This is then followed 


by 241 which is the code or token for 
the PRINT instruction. Every Basic 
keyword is coded asa single byte in 
this way. We listed all the tokens in 
ELBUG Vol.1 No.7, and they are also 
contained in the Electron User Guide 
with the description of Basic. After 
the token for PRINT, you should see 
another 32 (another space) followed by 
the ASCII codes for the rest of the 
PRINT instruction. You should also be 
able to follow through the bytes of the 
second instruction with its token of 
224 for END. 


One peculiarity that you may notice 
is the blank line on the screen after 
the line containing the second byte of 
the line number (the value 10). This 
arises because the function’ key 
definition tries crudely to display 
every character on the screen. It tries 
to do this with the value 10 which is 
the ASCII code for Linefeed, and that's 
exactly what happens. This may also 
explain any other unexpected characters 
that appear on the screen. The function 
key definition given above is adequate 
rather than comprehensive. 


Once you know how a Basic program is 
stored in the computer's memory it is 
not then too difficult to write a 
routine that goes through the program 
looking for spaces, REM statements and 
the like and removing these if 
necessary, and that's what the PACK 
program listed here does. © 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINT 


GETTING THE RIGHT CHARACTER - J.S. Swiszczowski 

The following expressions will ensure that the correct character is interpreted 
on input ignoring the state of Caps Lock. This can make programs more user-friendly 
when the user may have selected Caps Lock mode, but the state of the micro is not 
known for certain. Each expression will input one character as shown. 


Expression 
keyS$=CHR$ (GET OR &3@) 
keyS=CHRS$ (GET OR &6@) 


keyS=CHRS$ (GET AND &5F) 


Ensures correct entry of 
digits 

lower case 

upper case 


LINE LISTING AFTER ERROR - P. Jollyman 


If you use the following key definition, you can get a listing of the line in 
which the last error occurred. Once typed in this you can display any line which 
generates an error by pressing the keys Func and 1 together (Func-1). 

*KEYI CS$="L."+STRSERL+CHRS1 3 :A$=1 38:X%=G : FORJ$=1 TOLENCS: Y$=ASCMIDS (AS,J%): 


CA. &FFF4:N. |M 


(Note that the '|' character is next to Break on the keyboard.) @ 
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?, BOOKS FOR PROGRAMMERS 


oe . 
REN \ 


Reviewed by Mike Williams 


ne 


OK 


When you buy your Electron, you not 
only get aclear and readable User 
Guide, but a most valuable introduction 
to Basic programming in the form of the 
book "Start Programming with the 
Electron" by Masoud Yazdani. This is an 
excellent book to get you started, but 
where do you turn for more information? 


Both of the books reviewed this 
month assume some knowledge of both 
machine and language so where better to 
look for that extra advice and help? 


‘Getting more from you BBC and Electron 
Computers' by Noel Kantaris & Keith 
Thompson, published by Sigma Technical 
Press at £6.95. 


This is a most SLL 
attractive looking 
book that has clearly 
attempted to take 
advantage of the high 
degree of 
compatibility between 
the Electron and the 
BBC micro. To a large 
extent I think that 
the book has_ been 
successful in this 
aim, as Teletext mode, 
one of the = main 
features of the Beeb 
completely left out of this book. This 
is not to say that as an Electron owner 
you won't occasionally find references 
applicable only to that other machine, 
but that these are largely few in 
number and readily skipped. There are 
also some references to devices like 
printers which are only possible with 
the Electron if you buy one of the new 
printer interfaces (like the Plus 1 
from Acorn reviewed in ELBUG issue 8). 


Overall, this book provides a most 
thorough and comprehensive coverage of 
BBC Basic. That it does so in just over 
206 pages means that the pace is quite 
fast, hence the desirability of having 


already started to program in a small 
way. The first three chapters introduce 
all the fundemantal aspects of Basic 
programming with a good introduction to 
high resolution graphics (using MOVE 
and DRAW) but a very sketchy 
description of SOUND and no reference 
at all to the use of envelopes. This is 


all good stuff, though I would wish 
more of the examples had a less 
mathematical flavour to them. 

The next two chapters deal with 
strings, functions, procedures and 
subroutines. Again this is very 


thorough although, in my view, there is 
insufficient emphasis on the use of 
procedures and their role in producing 
well structured and readable programs. 


The next two chapters deal with 
‘Advanced Graphics' covering much that 
is both useful and fundemental to 
graphics programming on the Electron. 
The emphasis is’ strongly on plotting 
high resolution graphics, and user 
defined characters, so vital in most 
games programs, get limited cover here. 
For example, there is nothing about how 
to build up larger characters (other 
than two side by side - the easiest 
arrangement to program), or about how 
to program two-coloured characters. On 
the other hand, the descriptions of the 
use of MOVE, DRAW and PLOT are quite 
comprehensive, and only a specialist 
book on graphics could be expected to 
contain more. 


This book is well produced, the 
program listings are very clear, and 
there are 32 programs listed at the 
back as answers to exercises set 
throughout the earlier chapters. The 
book has a rather mathematical and 
academic flavour to it, and indeed it 
might well have been written as a 
textbook on Basic programming. If you 
have a technical bent and want a very 
thorough treatise on nearly all aspects 
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of BBC Basic then this could well be 
the book for you. 


‘Advancing with the Electron' by Peter 
Seal, published by Micro Press at £5.95 


This is another 
most attractive 
looking book, though 
this time with only} 
just over 1989 pages. | 
This is in some ways 
an unusual book in 
that it quite 
deliberately does not 
set out to teach 


ADVANCING 


Basic, but instead 9i>~ 
takes as its task the Jiu = 
design, development | 


and programming of af 
single major program || 

for managing a small 

database. The design of large programs 
is something that beginners, and even 
some who are more than beginners, find 
a difficult task, and this is a most 
commendable attempt. 


The first three chapters cover some 
basic programming concepts for the 
Electron, and then move on to discuss 
the design and development of the 
database system itself. This covers 
some of the necessary detail of file 
design and discusses the various 
functions to be included in the 
database program. 


The main chapter in the book, indeed 
it takes up nearly half the book, is 
concerned with the progressive and 
detailed coding of the entire database 
program. For a number of reasons I feel 
less than enthusiastic about’ the 
result. I believe this section of the 
book would have been more readable had 
it been divided up functionally into 
three or four shorter chapters. The 
approach to coding seems to lack any 
real feel for structuring, and I often 
found myself lost as to exactly which 
part of the program I was dealing with, 
and more particularly how it related to 
the rest of the program. 


Developing a complete program in 
this way is a marvellous opportunity to 
really get to grips with the problems 


and techniques of program design and 
structure, and sadly this chance seems 
to have been missed. 


I also found the detailed choice of 
particular coding techniques to be 
second best in several instances. I 
would have expected to see functions 
and procedures used almost exclusively 
throughout a program of this nature, 
but in fact subroutines are used as 
well. The author says, on page 35, "The 
main purpose of using procedures rather 
than subroutines is that if its 
necessary to shift them about the 
program, you can do_ so without having 
to reset line numbers. In this way it 
(viz, the procedure) is very similar to 
a data statement." I thought the merit 
in using procedures was that they were 
called by name with parameter passing, 
with the opportunity to produce a 
better structured and more readable 
program. 


Frequent use of GOTO in many of the 
routines followed by a line number also 


hinders readability, and hence 
understanding, of the coding. Some 
detailed constructions are also 


confusing in printed form. On page 41 a 
PRINT statement contains (I think) 46 
spaces. Surely it is much clearer, and 
takes up less space, to write SPC46 
instead. 


The last chapters in the book deal 
with testing, debugging and 
documentation. The information here is 
quite useful, but of a _ very general 
nature. It would have been interesting 
to discuss the design of specific test 
data to ensure that the program 
described performed according to the 
initial design and specification. 
Instead the book tends to concentrate 
more on how to debug programs typed in 
from book and magazine listings. 


Overall I was rather disappointed 
with this book. The decision to base 
the entire book about the design and 
construction of one major program is a 
brave one on which the author is to be 
congratulated. It is a pity that the 
final result does not live up to its 
earlier promise. & 
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FASTER PROGRAMMING 


USING INDIRECTION OPERATORS 
By C.F.H. Francis 


In the July issue of ELBUG we published a game called ‘Flowers of 
Hell'. In this article, one of a number of occasional articles on 
efficient programming, the author of this game divulges some of his 
secrets on making programs run faster. 


If you have tried writing any but 
the most simple Basic game, the chances 
are that you will have tried using 
arrays (see also last month's article 
on ‘Debugging Programs' for some more 
information about arrays). This causes 
two problems: arrays use up a lot of 
memory, and they are relatively slow. 
Fortunately both problems can be solved 
without resorting to machine code by 
the use of the so-called indirection 
operators provided by BBC Basic. The 
full description of indirection 
operators lies in the part of the 
manual that most of us don't read 
(pages 129, 138 and the section on 
assembly language programming), but in 
fact they are remarkably easy to use. 


An indirection operator allows a 
Basic program to use directly any 
memory location. On many micros the 
actions involved are known as_ 'peeks' 
and 'pokes'. The simplest way to use 
indirection operators applies to 
integer arrays when it is known that 
all the numbers to be stored are 
positive integers less than 256. For 
example, two arrays could be used to 
store. the X amd Y co-ordinates of a 
user defined characters within a game, 
with one for the X values, and the 
other for the Y values. In this case 
the two arrays can be_ replaced 
directly. Consider the following short 
program, which loops round setting an 
array to a specific value: 


16 DIM A% (999) 

20 TIME=6 

30 FOR I%=@ TO 999:A%(I%)=1:NEXT 
46 PRINT TIME 


In mode 6 this took 1.38 seconds on my 
Electron. Now replace A%(999) by A% 999 
and A%(I%) by A%?I% (? is pronounced as 
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‘query'). With this replacement the 
loop took 1.62 seconds: a saving of 
25%. This can be a very major saving in 
a game in which you may access a number 
of arrays hundreds of times whenever 
the main loop of the program is 
executed. For example, in "Flowers of 
Hell" (July issue) by the time there 
are five fireballs the main loop has to 
read over two hundred array elements. 
The slowing down of "Flowers of Hell" 
is mainly due to the use of arrays (in 
this case slowing down doesn't matter 
as the game would otherwise become 
unplayable as the number of flowers and 
fireballs increases). 


DIM A% 999 assigns 10600 bytes of 
memory from A% to A%+999. To find out 
where in memory this might be, type 
PRINT A$ after the above program has 
been run. A%?I% gives the contents of 
memory location A%+I$%, but this could 
also be accessed with ?(A%+I%). This 
gives the clue to an even greater 
saving. Replace line 38 above with: 


30 FOR IS=A% TO A%$+999:?I1$=1:NEXT 


This accomplishes exactly the same 
thing, but the program now runs in 9.92 
seconds, a total saving of around 33%. 


This is all very well, but what if 
you want to use an array which takes 
values requiring more than one byte of 
memory (i.e. integers greater than 
255). The savings in time are no less 
dramatic using the ! (pronounced 
"pling') indirection operator. The 
Electron stores integers in four 
consecutive bytes, and !I% gives the 
integer stored in locations I%, I%+1, 
I$+2, and I%+3. For an integer array 
with 1060 members, 4000 (1000*4) memory 
locations must be reserved, and the 
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step size should be 4. Replace lines 16 
and 36 with: 


16 DIM A% 3999 
30 FOR I%=A% TO A%+3999 STEP4:!I%=1: 
NEXT 


This is barely slower, taking 6.94 
seconds. In addition, any integer value 
can be placed in the location I% by 
using !I%=<value>. 


String arrays can be replaced using 
the $ (pronounced 'string') indirection 
operator, and the savings are even 
greater. Try using 


16 DIM A$(999) 
30 FORI%=0 TO 999:AS$ (I$) ="TEST" :NEXT 


This took 1.48 seconds on my Electron. 
When using indirection operators the 
string "TEST" requires five memory 
locations, one for each letter, and one 
for a Return to indicate the end of the 
string. To see how the $_ indirection 
operator works try altering lines 10 
and 36 to: 

18 DIM A% 4999 

36 FOR I%=A% TO A%+4999 STEP5S:SI$="T 
EST": NEXT 


This saves over half a second, taking 
8.96 seconds. Virtually no time is lost 
by setting aside more memory, and using 
a larger step size, for example 
DIM A% 9999 and STEP 18. The maximum 
length of a string which can be stored 
like this is one less than the step 
size used. Due to the way in which 
string arrays are allocated memory on 
the Electron, the savings in memory are 
quite significant. 


Incidentally, when indirection 
Operators are used like this some of 
the Basic string operators can be 
simulated very easily. In the above 
examples PRINT ?A% gives the ASCII code 
for T, while PRINT SA% gives 'TEST', as 
might be expected. PRINT $(A%+1) gives 
EST, simulating the operation of the 
RIGHTS function. The Electron simply 
reads the string from wherever it is 
told to start, and stops when it 
reaches a Return (ASCII value 13). 
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LEFT$ can also be simulated by placing 
a Return in a= particular memory 
location. For example $(A%+2)="" which 
puts a Return character at A%+2, 
followed by PRINT SA% will give TE. 
Strings can be combined by placing the 
first letter of one string in the 
location occupied by the Return for 
another = string. For example type 
$(A$+2)="STING". PRINT SA% now gives 
TESTING. 


Finally it is worth examining the 
savings which can be made on using two 
(or more) dimensional arrays. These are 
even slower than one dimensional 
arrays. For example type in the lines 
listed here: 


1@ DIM A%(9,99) 
3@ FOR Kt=@ TO 9:FOR J%=8 TO 99: 
A% (K&,J%) =]: NEXT 


When run, the program now takes 2.27 
seconds. Indirection operators do not 
allow the use of more than one 
dimension, so the two dimensional array 
above must be replaced by the one 
dimensional set of memory locations DIM 
AS 999. Then K% and J% have to be 
replaced by I% running from A% to 
A%+999. This brings the time down to 
9.92 seconds, but you do have to be 
careful with the arithmetic. In this 
example the actual location of the 
element A(K%,J%) is found as follows: 


I=AS+1 GBO*KS+I$ 


So you must remember that increasing I% 
by one corresponds to increasing J% by 
one, unless the value of J% is 99, when 
it corresponds to increasing K% by 1 
and resetting J% to 9. Increasing I$ by 
168 corresponds to increasing K% by 1 
and leaving J% alone. The situation is 
essentially similar in the case of the 
! and $ indirection operators, but then 
you also have to be careful about step 
sizes. By the way, don't succumb to the 
temptation of letting the micro do the 
arithmetic for you by using an equation 
such as the one above inside the 
FOR-NEXT loop - you will very likely 
lose all the time saved! 
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THE MEMORY GAME 


by Alan Dickinson 


The Memory Game is based on the old card game of Pelmanism where you 
turn over cards one at a time, and match up pairs. This version 
makes excellent use of the Electron's colour graphics to provide an 
attractive variation of this game with a computing theme. 


In our version of the Memory Game 
you are presented with eight rows of 
eight characters, all hidden from view. 
You can then look at any character to 
identify it, and by remembering 
positions, locate and match pairs of 
characters on the board. 


The program listed below is in two 
parts, each of which must be typed in 
and saved on cassette. The first part 
consists entirely of character 
definitions which set up the various 
‘characters' used in the game. Type 
the lines in carefully, as any mistakes 
will show up in the design of the 
characters later on. The second program 
is loaded and run automatically by the 
first. You must make sure that the 
programs are recorded in the order 
presented here, and named as 'PEL1' and 
"PEL2'. 


You can choose between playing with 
four, eight or the full sixteen 
characters. Obviously, the more designs 
you play with, the harder the game. You 
will also need to select whether you 
want to play on your own, against 
another player or against the computer. 
The computer can play at three levels 
of skill, and on level three you'll 
find it hard to beat! 


When you have selected the options 
you want, press the Return key or the 
space bar, and the game will begin. 
Enter your pairs by moving the hairline 
cursor using the cursor keys, and press 
Return when you're over the desired 
square. The program will briefly 
display each character selected. The 
computer will keep a _ record of your 
score, as well as how many tries you've 
had if you are playing alone. The game 
is over when all the squares are 
uncovered, and after the final scores 
are given you can play again by 
pressing any key. 


attractive use of 


The very 
user-defined characters makes this a 
most satisfying game to. play, and 
illustrates how good presentation can 
add much to the quality of any computer 
game. 


16 REM PROGRAM Pelman 1 

26 REM VERSION E@.1 

3@ REM AUTHOR A.Dickinson 

40 REM ELBUG OCT 1984 

5@ REM PROGRAM SUBJECT TO COPYRIGHT 


106 REM Character Definitions 

11@ REM 224-225 Acorn 

12@ REM 226-227 B 

130 REM 228-229 Paacnan 

148 REM 230-231 Vader 

158 VDU23,224,24,60,60,126,126,126,12 
6,0,23,225,255,126,126,60,24,24,12,6 

16@ VDU23,226,252,252,162,162,192,182 
7124,124,23,227,192,162,192,102,252,252 
70,0 

178 VDU23,228,60,126,126,255,153,153, 
153,153, 23,229, 255,255,171,213,255, 255, 
85,85 

188 VDU23,230,66,126,255, 189,153,153, 
255,255,23,231,126,60,24,24,36,66,129,0 

198 : 

266 REM 232-233 Diamond 

210 REM 234-235 Club 

226 REM 236-237 Heart 

238 REM 238-239 Spade 
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248 VDU23,232,0,24,24,60,68,126,126,2 268 MODES: PROCpelman 
55,23,233,255,255,126,126,60,60,24,24 218 MODE6: PROCsummar y 

258 VDU23,234,0,24,24,60,68,24,98,219 226 UNTIL FALSE 
723,235,255,255,90,24,24,24,60,126 238 : 

268 VDU23,236,0,102,231,255,255,255,2 1086 DEF PROCheader 
55,255,23,237,126,126,126,60,60,24,8,0 1018 PRINTTAB(G,8) STRINGS (40,"*") 

278 VDU23,238,9,24,60,60,126,126,126, 102@6 PRINTTAB (@,4) STRINGS (46,"*") 
255,23,239,255,255,219,219,24,24,68,126 1638 PRINTTAB(12,2);"The Memory Game"; 

280 : 1648 ENDPROC 

298 REM 249-241 Smiley 1658 : 

306 REM 242-243 Grumpy ae 1660 DEF PROCintro 

31@ REM 244-245 Train 1678 VDU23,1,0;9;G6;0; 

320 REM 246-247 Car 1088 PROCheader 

330 VDU23,240,60,102,195,129,129,165, 1696 PRINTTAB(13,6)"1. Solo" 
165,129,23,241,129,165,165,189,129,195, 1168 PRINTTAB(13,7)"2. Two player" 
162,66 1118 PRINTTAB(13,8)"3. Computer (1)" 

340 VDU23,242,60,192,195,129,129,165, 11206 PRINTTAB(13,9)"4. Computer (2)" 
165,129,23,243,129,189,165,165,129,195, 1138 PRINTTAB(13,18)"5. Computer (3)" 
162,68 1149 PRINTTAB(13,12)"A. 4 designs" 

358 VDU23,244,7,5,229,69,69,85,85, 253 1158 PRINTTAB(13,13)"B. 8 designs" 
723,245,253,255,255,254,255,3,171,168 1166 PRINTTAB(13,14)"C. 16 designs" 

368 VDU23,246,9,9,62, 34,34, 34,34,227, 117@ PRINTTAB(13,26)"Q. Quit" 
23,247,191,255,255,24,219,219,195,195 1186 PRINTTAB(13,24)"SPACE to start"; 

378 : 1198 aS=P$:PROCoption 

386 REM 248-249 Rook 1200 aS=HS$:PROCoption 

398 REM 258-251 Knignt 1210 REPEAT 

400 REM 252-253 Bishop 1226 a$=GET$ 

416 REM 254-255 King 123@ PROCoption 

426 VDU23,248,219,219,219,255,255,126 1246 UNTIL aS="_" OR ASC(a$)=13 
,126,126,23,249,126,126,126, 126,255,255 125@ ENDPROC 
7126,255 1260 : 

436 VDU23,250,12,4,28,52,118, 246,246, 1276 DEF PROCoption 
254,34,23,251,30,28,60,126,255,255,126, 1288 IFa$="Q" CLS: PROCend: END 
255 1290 IFaS="1" PS="1": PROCV (6,6) 

446 VDU23,252,60,24,66,126,62,159, 207 1366 IFaS="2" PS="2";PROCV (7,6) 
7231,23,253,247,255,126,60,255,255,126, 1318 IFa$ 4 P$="3" : PROCV (8, 6) 

255 1326 IFa$="4" PS="4": PROCV (9,6) 

458 VDU23,254,24,60,189,153,219,255,1 1330 IFa$="5" PS$="5": PROCv (16,6) 
89,153,23,255,219,126,66,24,255,255,126 1340 IFaS="A" HS="A":PROCv (12,12) 
7255 1350 IFaS="B" HS="B": PROCv (13,12) 

466 CLS:CHAIN"PEL2" 1366 IFa$="C" HS$="C":PROCV (14,12) 

1378 ENDPROC 
oo 1386 : 

1@ REM PROGRAM Pelman 2 1396 DEF PROCvV(j%,k%) 

2@ REM VERSION E@.3 1400 FORm$=k% TO k%+4 

3@ REM AUTHOR A Dickinson 1419 VDU31,6,m%, 32,32, 32 

4@ REM ELBUG OCT 1984 1426 NEXT 

5@ REM PROGRAM SUBJECT TO COPYRIGHT 1438 VDU31,6,3%3,45,45,62 

60 : 1449 ENDPROC 

106 DIM M%(63) 1456 : 

11@ DIM N%(63) 1466 DEF PROCpelman 

126 DIM 0%(63) 1478 VDU19,9,14,9,9,0 

138 B%=0 1486 VDU19,1,4,9,9,0 

149 Ps="1" 1496 VDU19,2,6,9,0,0 

150 HS="A" 1566 VDU23,0,10,114;0;0;0; 

160 : 1518 PROCscreen 

178 ON ERROR IF ERR<>17 MODE6: PROCabe 1528 PROCsetboard 
nd: END 1530 IFPS="1" PROCgamel ELSE PROCgame2 

188 REPEAT 1548 PROCtune 

199 MODE6: PROCintro 1556 TIME=@:REPEAT UNTIL TIME>35@ 
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1568 ENDPROC 2168 ENDPROC 
1576 : 2176 : 
1586 DEF PROCtune 2188 DEF PROCgame2 
1598 RESTORE 2198 C%=0:X%=G: Y$=G: L3=G: R8=0:G$=TRUE 
1608 FOR it=1 TO 7 2298 COLOUR] :COLOUR1 38 
161@ READ £% 2210 REPEAT 
1628 SOUND1,-12,£%+32,2:SOUND1,@,1,1 2228 PRINTTAB (8,29) ; 
1638 NEXT 2230 PRINTTAB(2,27)SPC(7) ; 
1648 SOUND1,-16,64,68 2240 PRINTTAB(11,27)SPC(7); 
1650 DATA 64,72,48,56,64,72,88 2258 IFG$ PRINTTAB(2,27) "Player1"; 
1668 ENDPROC 2260 IFNOTG$PRINTTAB (11,27) "Player2"; 
1676 : 2270 PRINTTAB (3,29) ;L%; 
1688 DEF PROCscreen 2288 PRINTTAB (13,29) ;R%; 
1698 GCOLG,138:CLG 2290 T%=FNpair 
1768 GCOLG,1 2300 IF G% L%=L%+T% ELSERS=R$+TS 
171@ MOVE12@,215:PLOT@,G,784 2310 IF T%=@ G%=NOT G% 
1728 PLOT81,1040,-784:PLOT81,@,784 2328 UNTIL L%+R%=32 
1738 GCOLG,3 2338 ENDPROC 
1748 FOR j%=1 TO 9 2340 : 
175@ MOVE128*35%,223:PLOT1,@, 768 2350 DEF FNpair 
1768 MOVE128,127+5%*96: PLOT] ,1024,0 2368 REPEAT 
1776 NEXT 2376 F%=FNchoice(1) 
1786 COLOUR] :COLOUR13@ 2380 UNTIL N%(F%) =1 
1798 FORx%$=128 TO 716 STEP588 2398 PROCsquare(F%,@,1) 
1808 MOVEx$,48 2400 REPEAT 
1816 PLOT1,@,64: PLOT] ,448,@ 2418 S%=FNchoice (2) 
182G PLOT1,@,-64:PLOT1,-448,0 2428 UNTIL N%(S%)=1 AND S%<>F% 
1838 NEXT 2430 PROCsquare(S%,@,1) 
1849 ENDPROC 2440 IFM% (F%)=M%$(S%) T%=1 ELSE T%=0 
1858 : ts 2458 IF T%=1 PROQnatch 
1868 DEF PROCsetboard 2466 TIME=0:REPEAT UNTIL TIME>109 
1878 FOR}%=8 TO 63 2476 PROCsquare(F%,1,T%) 
1880 N%(j%)=6:0% (3%) =G J 2480 PROCsquare(S%,1,T%) 
1898 NEXT 2496 =TS 
1988 PROCtune 2500 : 
1918 IF HS="A" nt=4:m$=16 2510 DEF PROCmatch 
1926 IF HS="B" n%=8:m$=8 2526 FORJ$=1 TO 206 STEP32 
1936 IF HS="C" n=16:ms=4 2538 SOUND1,-9,3%,1 
1948 FOR j%=6 TO n%-1 2548 NEXT 
195@ FOR k%=1 TO m% 2550 N%(F%)=0:N% (S$) =8:CB=C$+1 
1960 Z%=RND (4G) +RND (48) 2568 ENDPROC 
1978 REPEAT 2570 : 
1980 Z%=Z%+1:IF 2%3>63 2%=0 2586 DEF FNchoice(ch$) 
1996 UNTIL N%(Z%)=0 2598 IFPS>"2" IFNOTG%$ THEN=FNcomp(ch$%) 
2008 N%(Z%)=1 2MB (ZS) =224+j53*2 2608 GCOL4,G 
2018 NEXT 2618 REPEAT 
2620 NEXT 2628 MOVEX$*128+128,Y%*96+268 
28638 ENDPROC 2638 PLOT1,128,@ 
2040 : 2648 aS=FNin:SOUND&11,-19,196,1 
2658 DEF PROCgamel 2658 PLOT1,-128,0 
2068 C8=0:X%=G: Y3=G:G3=G 2660 IFaS="L" IFX%$>@ X%=X3-1 
2878 COLOUR] :COLOUR1 398 2676 IFaS="R" IFX%<7 X%=X$+1 
2080 PRINTTAB(2,27)"Tries" 2686 IFaS="D" IFY%>@ Y%=Y3-1 
2098 PRINTTAB(13,27) "Pairs" 2699 IFa$="U" IFY$<7 Y$=Y3+1 
21008 REPEAT 2766 UNTIL aS="E" 
2118 PRINTTAB (4,29) ;G%; 2710 =XB+Y3*8 
2126 PRINTTAB(14,29) ;C%; 2720 : 
2130 T%=FNpair 2738 DEF FNin ig ae 
2148 G%=G3+1 2748 *FX4,1 
2158 UNTILC%=32 275@ *FX15 
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2768 
2778 
2786 
2798 
2868 
28198 
2826 
2838 
2840 
2858 
2860 
2876 
2889 
2896 
2988 
2916 
2926 
2936 
2948 
2958 
2968 
2976 
2986 
2998 
3688 
3619 
3820 


at=GET 

IFa%=13 THEN="E" 
IFa%=136 THEN="L" 
IFa%=137 THEN="R" 
IFa%=138 THEN="D" 
IFa%=139 THEN="U" 
GOTO2768 


DEF FNcomp(ch$) 
TIME=@:REPEAT UNTIL TIME>15@ 
IFPS="3" ORch$=1 r%$=FNcomp3 
IFP$>"3" IFch$=2 r$=FNcomp4 
SOUND&11,-8,r3*3,3 

=r 

DEF FNcomp3 

r3=RND (64) 

REPEAT 

rd=r$t+1 s IFr3>63r3=G 

UNTIL N%(r%$)=1] AND r$<>oF$S 
=r 


DEF FNcomp4 

IFPS="4" IFRND(18)<7 THEN=FNcomp3 
k$=99 

FOR j%=1 TO 63 

IF N%(j%)=1 AND 0%(j%)=1 AND j%<> 


F% AND M$(j%)=M$(F%) THEN k3=3%:33=99 


3030 
3048 
3856 
3068 
3076 


NEXT 
IFk3<99 THEN=k% ELSE=FNcomp3 


DEF PROCsquare(z%,c%,d$) 
REM z - square number 


REM c - background colour 
REM dG - detail (8=no,1=yes) 
0% (z%) =1 

GCOLG,c$ 

x= (Z$MOD8) *128+136 
y3=(ZBDIV8) *96+312 
MOVEx’ , y$: PLOTG, 116, 
PLOT81,-116,-88:PLOT81,116,0 
IFd3=@ ENDPROC 

IFc$=@ GCOLG,1 ELSE GCOLG,3 
MOVE x%3+32,y%-8 

VDU5 ,M% (z%) , 10,8,M%(z3)+1,4 
ENDPROC 


DEF PROCsummary 

PROCheader 

IF PS="1" PROCsul ELSE PROCsu2 
*FX15 

AS=GETS 

ENDPROC 


DEF PROCsul 

P$=3200/G$+0.5: IFP$>BS BY=PS 
PRINTTAB (13,8) "Percentage" 
PRINTTAB (15,18) ;P3;"_ 3" 
PRINTTAB(13,15)"High score" 
PRINTTAB (15,17) ;B3;"_ 3" 
ENDPROC 


DEF PROCsu2 
PRINTTAB(13,8)"Player 1 scored" 
PRINTTAB (15,10) ;L% 

PRINTTAB (13,15) "Player 2 scored" 


PRINTTAB (15,17) ;R% 
ENDPROC 


DEF PROCabend 
ON ERROR OFF :CLS 
REPORT 
PRINT" at ";ERL 
PROCend 
S 


ENDPROC 


Es 
= 


DEF PROCend 
*FX4 

*FX15 
ENDPROC 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


SCREEN COLOUR CHANGING - A. Porter 
You can change the colours for screen displays without using the VDU 19 sequence 


by using the Control key: 
the logical colour, then the key for 


example, to change the background colour 


94806. 


type 


(8) 


in Control-S then press the key that corresponds to 
the physical colour, 


then three '@'s. For 


to blue, type Ctrl-S, followed by 
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BACK _ISSUES_AND SUBSCRIPTIONS 


BACK ISSUES (Members only) 


All back issues will be kept in print 
(from November 1983). Send 9080p _ per 
issue PLUS an AS SAE to the 
subscriptions address. Back copies of 
BEEBUG are available to ELBUG members 
at this same price. This offer is for 
members only, so it is ESSENTIAL to 
quote your membership number with your 
order. Please note that the advertising 
supplements are not supplied with back 
issues. 


Subscription and Software Address 


SUBSCRIPTIONS 


Send all applications for membership, 
and subscription queries to the 
subscriptions address. 


MEMBERSHIP COSTS: 
U.K. 

£5.98 for 6 months (5 issues) 
£9.98 for 1 year (10 issues) 

Eire and Europe 
Membership £16 for one year. 

Middle East £19 

Americas and Africa £21 
Elsewhere £23 


Payments in Sterling preferred. 


ELBUG SOFTWARE (Members only) 


PO BOX 189 
High Wycombe 
Bucks 


This is available from the software 


address. 


MAGAZINE CONTRIBUTIONS 

AND TBCHNICAL ERIES 
Please send all contributions and 
technical queries to the editorial 
address opposite. All contributions 
published in the magazine will be paid 
for at the rate of £25 per page. 


Editorial Address 


ELBUG 
PO Box 58 
St Albans 

Herts 


We will also pay £1@ for the best Hint 
or Tip that we publish, and £5 to the 
next best. Please send all editorial 
material to the editorial address 
opposite. If you require a reply it is 
essential to quote your membership 
number and enclose an SAE. 


ELBUG MAGAZINE is produced by BEEBUG Publications Ltd. 

Editor: Mike Williams. 

Production Bditor: Phyllida Vanstone. 

Technical Assistants David Fell, John Waller and Alan Webster. 

Managing Editor: Lee Calcraft. 

Thanks are due to, Sheridan Williams, and Adrian Calcraft for assistance with this 
issue. 


All rights reserved. No part of this publication may be reproduced without prior 
written permission of the Publisher. The Publisher cannot accept any responsibility, 
whatsoever, for errors in articles, programs, or advertisements published. The 
opinions expressed on the pages of this journal are those of the authors and do not 
necessarily represent those of the Publisher, BEEBUG Publications 
Limited. BEEBUG Publications LTD (c) 1984. 


New Elbug Binders 


We have produced an attractive 
hard-backed binder for the 
ELBUG magazine. These 
binders are green in colour 
with “ELBUG” in gold lettering 
on the spine and allow for the 
whole of one volume of the 
magazine to be stored as a 
single reference book. 


Each binder will accommodate 
10 ELBUG magazines, and is 
supplied with 12 wires to 
enable the index and the latest 
copy of the supplement to be 
included within the binder if 
required. Individual issues may 
be easily added and removed, 
allowing for the latest volume 
to be filed as it arrives. 


The price of the new ELBUG binder is £3.90 including VAT, 
please add 50p post and packing for delivery within the U.K. 
Overseas members please send the same amount, this will 
cover the extra postage but not VAT. 

Plese send to: 


BEEBUGSOFT, PO BOX 109, High Wycombe, Bucks, HP10 SHQ. 


THE BEST OF ELBUG ON CASSETTE 


Many of the best programs published in ELBUG have been collected together and 
published by Penguin Books under the name "Games and other programs ffor the Acorn 
Electron" at £3.95. This book is part of the Penguin Acorn Computer Library and at 
present there is just one other title available though others are planned. 


There are 28 programs in all in four different categories: 
Action Games : 
Munch-Man Mars Lander Invasion 
Robot Attack Hedgehog 


Thought games 
Higher/Lower Five-Dice . Life 
Anagrams Return of the Diamond 


Visual Displays 
Union Jack Square Dance Ellipto 
Screenplay 3-D Rotation 


Utilities 
Sound Wizard Bad Program Lister 
3-D Lettering Bad Program Rescue 
Double Height Text 


All 26 programs are now available on cassette from our software address (in High 
Wycombe) price £7 to members and £9 to non-members, plus 5@p post & packing in 
either case. 


ELBUG MAGAZINE CASSETTE 


To save wear and tear on fingers and brain, we offer, each month, a cassette of the programs featured in 
the latest edition of ELBUG. The first program on each tape is a menu program, detailing the tape’s 
contents, and allowing the selection of individual programs. The tapes are produced to a high technical 
standard by the process used for the BEEBUGSOFT range of titles. 


Magazine cassettes have been produced for each issue of ELBUG from Volume 1 Number 1 onwards and 
are all available from stock, priced £3.00 each inclusive of VAT. See below for ordering information. 


This months cassette includes: 


er (an action packed arcade-styl fame), Firewo a ae yt useful pactor, Thi 
an action le e), r , & foram com} r, The 
emory Game Mo updated version of Hes a ustral 

e 


ilmanism ), five example programs ting Electron 
Graphics, plus winning program in the ‘Oddfactors’ Brainteaser competition, and as an extra 
attraction, another colourful action game, Astro Wars, written in machine code. 


MAGAZINE CASSETTE SUBSCRIPTION 


We are also able to offer ELBUG members subscription to the magazine cassette, this gives the added 
advantage of receiving the cassette at around the same time as the magazine each month. Subscriptions 
may either be for a period of 1 year or6 months. (NOTE Magazine cassettes are produced 10 times each 
year). 


If required, subscriptions may be backdated as far as Volume 1 Number 1, so when applying please write 


to the address below quoting your membership number and the issue from which you would like your 
subscription to start. 


MAGAZINE CASSETTE ORDERING INFORMATION 


Individual ELBUG Magazine Cassettes 23.00. 
P& P: Please add 50p for the first and30p for each subsequent cassette. 
Overseas orders: Please send the same amount, this will include the extra post but not VAT. 


Magazine Cassette Subscription 

1 YEAR (10 issues) £33.00 Inclusive..... O’'SEAS £39.00 No VAT payable 

6 MONTHS (5 issues) £17.00 Inclusive..... O'SEAS £20.00 No VAT payable 

Please be sure to specify that you require subscription to the ELBUG magazine cassette (as opposed to 
the BEEBUG cassette), and enclose your membership number with a cheque made payable to 
BEEBUGSOFT. 


Please send to.. 


ELBUG Magazine Cassette, BEEBUGSOFT, PO Box 109, High Wycombe, HP10 8HQ 


Printed in England by Staples Printers St Albans Limited at The Priory Press 


ELBUG Magazine Cassette 


Each month we offer a cassette containing the programs featured in the latest issue 
of ELBUG and overleaf is a list of the programs included on each tape from Volume 1 
Number 1 up to this month’s issue. All tapes are available from stock and are ready 
for immediate despatch, price £3.00 including VAT. 


Cassette Subscription 


We are also able to offer subscription to the magazine cassette for periods of 6 
months (5 issues) or 1 year (10 issues), prices are shown below. Subscribers have the 
added advantage of receiving their cassettes generally just before, or at the same 
time as the magazine. 


SPECIAL OFFER 
If you take out a new subscription to the ELBUG magazine Cassette before 
November 16th using the form below, you may claim any one of the past 
magazine cassettes absolutely free. 


MAGAZINE CASSETTE ORDER FORM 
Number Price 
£3.00 
£3.00 
£3.00 
£3.00 
£3.00 
£3.00 
£3.00 


Volume 1. = Number 
Volume 1. Number 
Volume 1. =Number 
Volume 1. Number 
Volume 1) Number 
Volume 1 Number 
Volume 1 ~=Number 
Volume 1. ~=Number 
Volume 1. Number 
Volume 1 Number 10 


OANODNHWHNH 


MAGAZINE CASSETTE SUBSCRIPTION UK 6 MONTHS 
MAGAZINE CASSETTE SUBSCRIPTION OVERSEAS 6 MONTHS _ £20.00 


MAGAZINE CASSETTE SUBSCRIPTION UK 1 YEAR £33.00 
MAGAZINE CASSETTE SUBSCRIPTION OVERSEAS 1 YEAR £39.00 
Postage...Please add 50p for first cassette POSTAGE 
and 30p for each subsequent item. 

Subscription rates include post TOTAL 


ELBUG MAGAZINE CASSETTE SUBSCRIPTION 
SUBSCRIPTION TO RUN FROM SEE OVER 


STATE WHICH FREE CASSETTE FOR MAGAZINE 
(IF ORDERED BEFORE 16th NOVEMBER) CASSETTE 
CONTENTS 
LIST 


Send to:— ELBUG, PO Box 109, High Wycombe, Bucks. HP10 8HO 


ELBUG MAGAZINE CASETTES 
CONTENTS LIST 


Volume 1 Number 1 

Munch-Man—a Snapper type of game, Sound 
Wizard for designing and experimenting with sound 
envelopes, Graphics example program, a utility for 
producing double height characters, Highlo Card 
Game, a colourful Union Jack display, A Keyset 
program for setting up the function keys, and the 
exciting Hedgehog game. 


Volume 1 Number 2 

Return of the Diamond—a fascinating adventure 
game, a utility for displaying 3D lettering, an in- 
teresting visual display called Square Dance, 
ASTAAD ~a versatile computer aided design pro- 
gram, a musical Christmas card, Robot Attack 
game, a Graphics example program, Santa’s 
Parcels game, a utility to rescue ‘Bad Progranis’, 
and a fast moving football game. 


Volume 1 Number 3 

Mars Lander game, a program for rotating, enlarg- 
ing and reducing 3D objects, examples of Electron 
Graphics (3), a utility for designing a new character 
set, Reversi board game, a changing visual pattern 
based on ellipses, a utility for listing ‘Bad Programs’, 
and a challenging Dive Bomber game. 


Volume 1 Number 4 

Killer Dice game, The Spider and the Fly — an amus- 
ing visual display, further examples of Electron 
Graphics (7), Moving Chequer Board display, a ver- 
satile editor for developing sound envelopes, and 
the superb Block Blitz game. 


Volume 1 Number 5 

Invasion of the Aliens game, more examples of Elec- 
tron Graphics (6), a short utility for saving screen 
displays, a simulation of continually changing fabric 
patterns, a classic Dominoes game, a versatile Utili- 
ty Editor for Basic programmers, and the ex- 
hilarating Elevasion game. 


Volume 1 Number 6 

Hunt the Numers game, Invisible Alarm Clock, a 
Selective Renumber utility for basic programs, 
ASTAAD2-—the original CAD program extended, 
Graphics example programs (3), Lunar Escape 
game, Dancing Lines — an interesting visual display, 
and Four in a Row game. 


Volume 1. Number 7 

Flip Fap Game, Screen Freezer utility, routines for 
Expanding and Rotating Characters, Cursor keys 
demonstration, an interesting Stock Market Game, 
an action packed Galactic Invasion Game, and 
Niagara, the winning Electron entry in the March 
Brainteaser competition. 


Volume 1 Number 8 

The Flowers of Hell game, Disco Lights Display, 
automatic Cassette Indexer, the classic Breakout 
game for the Electron, Graphics Example (on 
manipulating colours), a useful Program Protection 
routine, and a colourful version of the Pontoon card 
game. 


Volume 1 + Number 9 

Codebreaker game, Harmonograph display, a Mini 
Text Editor for simple word processing, Build a 
House graphics display, Kayak Kapers game, 
graphics demonstration program—GCOLMANIA, 
Dartboard game and a program to generate a 
TV/monitor Test Card. 


Volume 1 Number 10 

Digger (an action packed arcade-style game), 
Fireworks Display, a useful program compactor, 
The Memory Game (an updated version of 
Pellmanism), five example programs illustrating 
Electron Graphics, plus the winning program in the 
‘Oddfactors’ Brainteaser competition, and as an ex- 
tra attraction, another colourful action game, Astro 
Wars, written in machine code. 


